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PREFACE 


The Sinclair ZX81 microcomputer has been widely acclaimed as a 
tremendous breakthrough in personal computing, even surpassing its 
predecessor the ZX80. Certainly no other computer has been bought in 
such quantities by such a wide range of people in such a short space of 
time since its launch in February 1981. The ZX81 advertising campaign 
has sought to attract the general public to the concept of using a 
computer in the home. 


“The ZX81 Companion” has been written to assist ZX81 owners in using 
their computer in the specific areas of information retrieval, education, 
and games. The Sinclair ZX81 Manual, while being an excellent intro- 
duction to ZX81 BASIC, does not discuss any real uses for the machine. 
However in the Companion, readers will find documented programs that 
can be used immediately to utilise the ZX81 to its full potential, as well 
as detailed guidelines on the design and development of their own 
programs. The book is therefore aimed at those familiar with the con- 
cepts of ZX81 BASIC but keen to get the ZX81 moving onto higher 
things. The fourth chapter is aimed at more advanced users who are 
interested in the workings of the ZX81 Monitor and methods of dis- 
playing and using Monitor routines. 


It is the opinion of the author that for any serious applications the ZX81 
definitely requires the addition of a 16K RAM pack. However many 
programs in the book can be run on 1K machines, the main exception 
being Chapter Two which develops a sophisticated information retrieval 
package for which 16K is naturally vital. 


The author has been involved in the ZX series of microcomputers since 
he acquired the first ZX80 kit in March 1980, and he is co-author of 
Linsac's ‘The ZX80 Companion’. He holds an MSc in Computer Science 
from Birmingham University and is Head of Computing at Hartlepool 
College, where he pioneered the use of the ZX80 in education. 


Thanks are due to Sinclair Research for permission to reprint the ZX81 
keyboard layout (but not the Monitor listing!), to Joe Foster for con- 
tributing the Appendix on program development and to lan Logan for 
the section on Monitor routines and entry points. 
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INTRODUCTION AND NOTATION 


Readers who own 16K ZX81's will be able to get the most out of this 
book, but those with 1K ZX81's or updated ZX80's will also benefit. 
Memory requirements for programs are clearly marked, and in many 

of the routines in Chapter One in particular, 1K and 16K alternatives 
are given. It is the author's opinion that owners of 8K ROM ZX80's аге 
certainly at a disadvantage with regard to the main benefit of the ZX81 
— animated displays. Such users will be well advised to consider the 
purchase of a conversion kit, currently available in the UK from 
Compshop Ltd., to provide the SLOW compute and display facility. 
However ZX80 owners without this conversion will still be able to use 
most of the programs herein, in some cases with the addition of suitable 
PAUSE statements to simulate SLOW mode. 


Material in the four chapters is developed from a simple starting point, 
and in the first three chapters exercises are used to give the reader 
practice in the techniques discussed. Solutions are found at the end of 
the book. 


A technique known as logical assignment is used in many of the programs 
to save on program space: a necessity for 1K machines. This technique 
combines several conditions and values in a single LET statement, and 
may not be familiar to some readers: study of the Sinclair Manual is 
recommended to clarify the use of the technique. 


The notation used in the program listings is designed to be as unambigu- 
ous as possible. Since spaces in printed text can be important in some 
circumstances, many of the listings specify a space by the letter b (for 
blank). Confusion between the letter | and the number 1, or the letter 
O and the number zero can occur so the following conventions are used: 


letter 
number one 
letter 
= number zero 


eo- 
ІШ 


Graphics and inverse characters can also be difficult to represent. |f text 
is to be represented in inverse form then this is indicated by the word 
"inverse" in brackets at the end of the PRINT statement. Graphics 
characters are generally drawn in and sometimes also identified by their 
key, e.g. 500 PRINT “ШЕ” (inverse space) 


СНАРТЕК ОМЕ 
GRAPHICS AND REALTIME TECHNIQUES 


1.1 INTRODUCTION 


We consider in this chapter the use of ZX81 statements to produce diag- 
rams, pictures and moving displays. Graphics is the art of drawing items 
on the ZX81 screen by means of addressing different parts of the display 
as you might fill in squares on a piece of graph paper. Realtime methods 
involve getting the ZX81 to respond to you immediately : although all 
ZX81 programs work in a conversational mode with the user entering 
information (in response to INPUT statements) and the computer 
replying with a display, programs can be written which will react immed- 
iately the user presses a key, whether or not the computer was doing 
something else at the time. 


These two techniques can be immensely useful. On the serious side, 
information can often be more clearly presented and understood if it is 
in the form of diagrams, such as graphs or histograms; simple maps or 
room layouts can also be shown. On the lighter side, games have much 
more realism and challenge if they involve pictures, and if the pictures 
move and the player has to respond quickly to this movement, so much 
the better. 


It will be helpful if the reader has looked over Chapters 17, 18 and 19 of 
the‘ZX81 BASIC Programming’ manual first. The statements covered in 
the theory and practical exercises below are PLOT, UNPLOT and PRINT 
AT (graphics) and INKEY$ and PAUSE (realtime). Do not be deterred 
by the initial emphasis on theory: in order to produce good graphics you 
need to have a good grasp of what is often titled ‘coordinate geometry’. 
At the end of this chapter you will be programming your own arcade- 
type games so stick with it! 


1.2 AXES AND COORDINATES 


In using the graphics features of the ZX81 we think of the TV screen as 
a piece of graph paper split into squares. We can black-in a square using 
PLOT and rub out a blacked-in square using UNPLOT. However to pick 
out a blacked-in square we must have some way of identifying squares 
to the ZX81, and this is done by considering the screen as having two 


lines of reference or axes, at right angles to each other at the left and 
bottom of the screen. 


ORIGIN 


X AXIS 





The vertical axis at the left of the screen is known as the y axis, and the 
horizontal axis at the bottom is called the x axis. The point at which 
they intersect is called the origin. 


Coordinates. 
240X 176 
The number of ‘squares’ on the ZX81 screen is fixed at бд x 44, i.e. there 
are 64 divisions along the x axis and 44 divisions along the y axis. To 
complicate the issue the divisions are numbered from 0 to 63 and from 
Ото 43, as shown below. 255 
125 


Y AXIS 





To identify a particular square on the graph we specify how far along 
the x axis it is, and then how far along the y axis. For example the 
blacked-in square in the diagram above is at position 3 on the x axis and 
position 5 on the y axis and we say its position on the graph is therefore 
(3,5). This pair of numbers in brackets is known as the coordinates of 


2 


the square. Note that the Sinclair Manual calls these squares "pixels". 
The PLOT statement uses the coordinates to identify a square's position 
and black it in (however brackets are omitted). Try this: 


FLOT 3,5 


A black square appears towards the bottom left hand corner of the 
screen, or at position (3,5). 


Any square in the 64 x 44 graph can be identified using coordinate pairs, 

- from the origin at (0,0) to the top right at (63,43). a the following 

program to get the four corners of the screen displa 
2587194) 


10 PLOT 0,0 oue 4 

20 PLOT 0,43 0,175 G -265 22%) 
30 PLOT 63,0 255,0 

40 PLOT 63,43 225,75 


The next section shows how squares may be drawn in groups to form 


lines. 
| (уч) 


1.3 STRAIGHT LINES X= foss 


y = ОВ 
Equations of X and Y Axes 


A straight line may be drawn on the screen by drawing in several squares 
together. The squares which form a line all have something in common 
and we can form an equation for a line using this fact. As ап example, 
consider squares along the x axis: 


(Ø, Ø) , (1,0) , (2, Ø) and so on up to (63, 0) 


All of these squares have something in common — they have their y 
position equalling zero. Therefore we say that the x axis has the equation 


у+ 0 


Similarly all squares along the y axis have their x coordinate equalling 
zero so the equation of the y axis is 


х=@ 


Therefore in order to draw in the y axis оп Ше screen, all we need to do 
is PLOT every square where x = 0. Thus 


10 FOR Y=@TO 43 OTOITS 
20 PLOT Q,Y 
30 NEXT Y 


Add the following lines and we produce a set of x and y axes on the 
screen. 


40 FOR X=@ TO 63 © То 255 
50 PLOT X,0 
60 NEXT X 


іп fact any vertical line will have an equation 
х = a number 
while any horizontal line will have an equation. 


у = a number 


Drawing a Rectangle 


You can get some interesting visual effects using just these simple con- 
cepts. The following program draws the edges of the screen ‘graph’: 


10 FOR X =.9 TO 68 77 : о То 255 
20 PLOT X,0 

30 PLOT Х 43 0:779 

40 МЕХТ Х 

50 FOR Y=@ ТО 43 67972 

60 PLOT-G-Y 22 

70 PLOT 88ү < ТИ 255,7 

80 NEXT Y 


Notice how the vertical lines and horizontal lines are plotted in pairs 
through use of a pair of PLOT statements in each of the two loops. 


For 1K ZX81's, substitute 37 for 43 in lines 30 and 50 for a complete 
rectangle. 


Another example shows how the entire screen may be blacked in from 
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the left 


076255 
10 FOR X-0 TO 63..... (Use 61 for 1K ZX81's) 
20 ЕОВУ=0 ТО 43 ото 175 
30 PLOT X,Y 
40 NEXT Y 
50 NEXT X 


Try reversing the order of the loops and ае: ше Тест. E 
ва coh S m. aim 
Exercise 1 (a): Produce an entirely black screen аи ру 


drawing vertical lines from right to left, going down the 
коё то $^ screen. 
кок үз $To 25 
PieT x, Y 3 5 
меж Ч 1 (b): Draw a black square with its bottom left corner 


геа а ат position (10,5), sized 20 x 20 squares. 


(Solutions on page 115) 


Equations of General Lines 
Most lines that we will need to draw on the ZX81 will not be vertical or 
horizontal, but diagonal. We now discuss how we can work out the 


common features or equations of such lines, and thus how they can be 
plotted on the screen. 


The diagram below shows a line drawn between points (0,6) and (18,42). 


42 


18 


[61] 


° |f this line were drawn on graph paper we would see that it also passes 
through a sequence of positions starting 


(1,8) (2,10) (3,12) (4,14) (5,16) ... 


The common factor about all the positions through which the line passes 
is that the y coordinate is twice the x coordinate plus six. We can there- 
fore say that the line has the following equation 


y=2x+6 
and we can therefore draw it on the ZX81 screen thus 


10 FOR X=@ TO 63 
20 PLOT X, 2*Х +6 
30 NEXT X 


However this teminates with error code B after getting as far as x = 18, 
since the y value calculated when x = 19 is 44, which is off the screen. 


Any diagonal line that we care to choose can be reduced to a simple 
equation of the form Па: nn 2,2 
q о бзш 
ма mox ¥ b 
у = mx + с 


where m and c represent numbers. 


The values of m and c can be seen more clearly from the foilowing graph 
showing y + 2x + 6 again. 





€ 

Aot 
The gradient or steepness of the line is measured by height divided by 
length. As shown above the line goes up 36 squares as it goes a/ong 18 
squares, so the gradient is 36 = 18 or 2. This represents m in the general 
equation of a straight line, y - mx * c. Similarly c is given by where the 
line cuts the y axis. To understand this, remember that the y axis is where 
x = Û. Therefore when the line у = mx + c and the line x = Ø intersect 
then 


y=m@+c 
This value is often called the y intercept. 


Consider a different line. This one slopes downwards and cuts the x-axis. 


x 


Again this line fits the general equation y = mx + с, but this time the 
gradient m will be negative.4The x intercept is easily found by remem- 
Еф 


sov-mxtc 
becomes @ = mx + c 
therefore x = —c 


m 


The following program can be used to demonstrate the effects of different 
values for m and c. 


5 REM ENTER VALUES AND PRINT EQUATION 
10 CLS 
20 PRINT "M-"'; 
30 INPUT M 
40 PRINT M;"bC-''; (b < space) 
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50 INPUT C 

60 CLS 

70 PRINT AT 0,12; Y-;M;" ХС 

75 REM DRAW AXES , 

2 Pe e ы 63% 7”  (For1K ZXB1's omit the REM lines) 
100 NEXT X 4 

110 FOR Y=@TO 43 07%: 
120 PLOT Q, Y 

130 NEXT Y 

135 REM DRAW LINE 
140 FOR X-0 TO 63 
150 PLOT X, M*X4C 
160 NEXT X 


25% 


RUN the program with varying positive and negative values for m and с 
and finally c= Ø or = Ø. If the y value becomes negative some peculiar 
effects occur because the PLOT statement always takes the positive 
values of coordinates. To overcome this add the line 


145 IF M*X+C<@ THEN STOP 


If you find it difficult to understand why the ZX81 does not do con- 
tinuous diagonal lines as it would if they were horizontal or vertical, 
remember that it is only blacking-in squares on a grid. You may have 
come across computers which appear to draw continuous lines on an 
output screen, but this is only because the number of squares or 
resolution of the display is higher. 


1.4 MOVING OBJECTS 
Moving Spots 


To relieve what for some might be a tedious excursion into school maths 
let us look at how we can get things to move on the ZX81 screen. 


ГД 


The way to produce animation by computer is the same as in cartoons: 
display a picture then display it in a slightly different position, and so 
on. When we drew lines on the screen we saw them being extended, and 
all we need to do to get moving spots is to rub out the trail. Modifying 
one of the previous routines gives us 


10 FOR Х-0 TO 63 
20 PLOT X,0 

30 UNPLOT X,0 
40 NEXT X 


and we see a spot moving quickly along the bottom of the screen. To 
slow it down and make it a bit clearer we could add a PAUSE 


25 PAUSE 10 (Vital for updated ZX80's) 
26 POKE 16437,255 

Two points here — remember to include the POKE after every PAUSE 
if you use FAST mode, and also make sure you PAUSE while the spot 
is on the screen, not after you have just rubbed it out. 


Exercise 1(c): Write a program to get a spot to move round the 
edges of the screen anti-clockwise starting at the origin (the 
program above starts you off). 


Moving Objects 


For greater realism a complete object can be built up and moved across 
the screen. As we will see later this is much better using the PRINT AT 
instruction but it can be achieved by PLOT, as below 


10 FOR Х-0 TO 61 

20 PLOT X,0 

30 PLOT X+1,0 

40 PLOT X+2,0 

50 PLOT X+1,1 

60 PAUSE 10 ) ortry 60 FOR A=1 ТО 20 
70 POKE 16437,255 ) 70 NEXT A 

80 UNPLOT X,0 

90 UNPLOT X+1,1 

100 NEXT X 


We see that not all of the object need be rubbed out each time, since the 
remaining part forms part of the next drawing of the object. The 
annoying blinking is much less accentuated using PRINT AT as we shall 
see, or even using the dummy loop. 


1.5 TRIGONOMETRY 

Tangents 
If you have started to read this section in spite of seeing the title then 
you are doing well. It is true that sines, cosines and particularly tangents 
can be useful in our theory of graphics. We will consider just tangents, 
but you can read up any secondary school maths text book to swot 


sines and cosines if you find it interesting. 


A tangent is the ratio of two sides of a right-angled triangle: 


The tangent of the angle at A 





я ва 
b 
227214; and we see that the tangent 
зе Rt is the same as the gradient of 
Ж EE a straight line. 
Ж | height 

А ; | 
ET зыр ее аб СОК 


«—length ---> 





Therefore we can start talking about lines being drawn at certain angles 
on the screen. For example the following program invites you to enter 
an angle (0-90?) and it then draws a line from the origin at this angle to 
the x axis. 


10 PRINT AT 0,0;"ANGLE-"'; 

20 INPUT A 

30 PRINT A 

40 IF А<@ OR А>90 THEN GO ТО 20 


10 


50 LET M=TAN(A*2*P1/360) 

60 FOR X=0TO 63 

70 ЧЕМ" Х> 43 THEN GO TO 100 

80 PLOT X,INT(M*X) 

90 NEXT Х 

100 PAUSE 100 

110 POKE 16437,255 

120 PRINT AT 06:“bbbb” Да 

130 GO TO 10 = one space) 


Lines 10—50 invite the user to enter an angle and then the value of m in 
the general equation for straight lines through the origin (y = mx) is 
calculated. As an added complication, the ZX81 will only handle 
tangents of angles expressed in radians which is a unit of circular measure 
but since one degree is 2r radians (or r ) 

360 180 


we can do an easy conversion. 


Lines 60 — 90 draw the line, making sure to stop drawing when the 
top of the screen is hit 


Lines 100 — 130 cause the program to repeat so that several lines can be 
drawn on the same graph. 


Exercise 1 (d): Write a program to draw a "spider's мер’ of 
lines, similar to the ones above using the angles O? to 90? 
at b? intervals. 


The program above and the exercise will crash when the angle is equal to 
ninety degrees because the tangent of 90? is infinitely large — draw the 
triangle if you cannot see why! A good way of stopping it anyway! 


Pythagoras 


The above-named gentleman may again not be too popular amongst 
some readers but his theorem can help us draw some nice pictures if 
nothing else. Basically he informs us that in a right angled triangle such 
as the one below the square of the hypotenuse is equal to the sum of the 
squares of the other two sides. 


i.e. c2 = a2 + 2 


This can be used in straight line geometry to work out the length of a line 
e.g. 


Take length of line as L 


then L? = 32 + 42 





Try changing this instruction in the solution of exercise 1(d) to see an 
example of how Pythagoras can justify his existence: 


50 IF X*X + Y*Y» 1849 THEN СО ТО 80 
and a very nice set of equal length lines are produced in an arc. 
Beware when using Pythagoras' theorem, particularly in loops, because 
the SOR function and even powers of numbers are very slow to evaluate. 
For example the following statement has the same effect as the instruc- 
tion above but it is much slower: 


50 IF SOR(X**2 + Y**2) > 43 THEN GO TO 80 


Try it and see. 


1.6 MORE STRAIGHT LINES 
Lines Through a Point 


Having done a quarter of a spiders web above, why not try a full web- 
shape. To do this we need to know some more theory about equations 
of lines on a graph, and in particular how to calculate the equation of a 
line between two points. 


For example, say we want to draw a line between (2,3) and (15,20). 
Both of them are on the line (general equation y = mx + c) so both 
satisfy its equation. 


So for point (2,3) we have 3= 2т + с 
and for point (15,20) we have 20 < 15m+c 


and then we have another mathematical unpleasantry, a pair of simul- 
taneous equations! We eventually find that in a general case, the equa- 
tion through two points (p,q) and (r,s) is obtained by . 








Enough of the theory, let's draw some more pictures. We want to get a 
web or star shape, with the centre at the centre of the screen, (32,22). 
Therefore we want to draw lines from different points on the y axis 
through (32,22). This makes things easier since the y axis has the 
equation x = 0. 


Sotaking (p,q) = (32,22) 





and 0 >= . (y) 
we get у-22 + x-32 for S from 0 to 43 
s— 22 — 32 


which after a lot of bashing comes to 


у= 22 (х — 32) (s— 92) forS from 0 to 43 
32 


giving the following program 


10 FOR S=@ TO 43STEP 5 ... (Use 39 rather than 43 

20 FOR Х=0 TO 637 with 1K ZX81's) 
30 LET Y=INT(22—(X—32)*(S—22)/32) 2: TUE y | 
40 IF Y>43 OR Y<@ THEN GO ТО 703, 

50 PLOT X,Y 

60 NEXT X 


70 NEXT S 


Lines with a Given Slope 


Exercise 1(e): The display from the program above does not give 
a complete web effect because lines are only drawn from the 
y axis. Extend it by working out the equation of lines 
through a point with a given gradient and thus produce a 
complete web. 


Spirals 


An interesting display can be produced by drawing lines around the out- 
side of the screen which gradually move into the centre in a 'rectangular 
spiral'. It is also quite an interesting exercise in logic. 


Consider a general case where we are somewhere in the middle of the 
display: 





We can label the corners of the current rectangle as shown above. There- 
fore we initially set the values of X0, X1, Үй, Y1 to be at the edges of 
the screen and then gradually change them in the course of the program 
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to produce the spiral. However we have to Бе very careful as to where in 
the program we modify these values. 


This works very nicely: 


10 LET ХОЙ .. 45) 

20 LET Х1=63 .. 48) for 1K ZX81's 
oo LET YP-D  .. 20) 

40 LETY1-43 .. 43) 

50 FOR X-«X0 TO X1 

60 PLOT X,Y@ 

70 NEXT X 

80 FOR Y-YO TO Y1 

90 PLOT X1,Y 

100 NEXT Y 

110 FOR X=X1 TO XQ STEP —1 
120 PLOT X,Y1 

130 NEXT X 

140 LET Х1-Х1-1 

150 LET YÆYØ+1 

160 LET Y12Y 1-1 

170 FOR Ү-Ү1 TO YOSTEP -1 
180 PLOT X0,Y 

190 NEXT Y 
200 LET Х0=Х0+1 

210 GO TO 50 


We need to stop the process somewhere so add 
165 IF Y@>=Y1 THEN GO ТО 500 
and if you want to check that we stop at the right place add 
500 PRINT “0” 
If you like this display and feel it could be extended to give a continu- 


ously moving video background in a room, you are absolutely right : 
wait for Section 1.7! 


Bouncing 


Many of the early TV games involved a ball bouncing around the screen. 
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We are now going to look at how to get a moving object to bounce off a 
flat object. 


We assume that if our ball hits a wall at a certain angle it will bounce off 
at the same angle, i.e.:— 


! 
I 
| 
а | 
а 


| 


0 


You are probably getting the sinking feeling that this is going to involve 
more theory: true, but not too much. It all has to do with the gradient 
of the line followed by the ball. We find that the gradient has its sign 
reversed after reflection from the wall. If you are into such things, this 
is because 


tan (90—a) = — tan (90+a) 
or incident gradient = -геНестесі gradient 


Therefore if a ball travelling with a gradient of m hits a wall at a point 
(a,b) then it will continue with gradient negated and its equation will be 


у= m(x—a) +b 
or y= mx + (b—ma) 


For drawing on the ZX81 we also have to be clear that if the ball hits a 
wall it will change direction on the screen, and therefore needs to be 
plotted carefully. 


The following program draws a line starting at the origin on the screen 
at an angle specified by the user and then bounces it off the edges of the 
screen. Its path is left on the screen to illustrate the theory above. 

Use angles between 20? and 80? for useful results. 


10 PRINT "ANGLE-"'; 

20 INPUT A 

30 CLS 

40 LET М-ТАМ(А?Р1/180) 


50 LET X=0 

60 LET 1=1 

70 LET С-0 

80 LET X=X+l 

90 LET Y=M*X+C 

100 IF Х<-0 OR Y«-0 THEN STOP 
110 IF X>=43 OR Y>=43 THEN GO ТО 140 
120 PLOT X,Y 

130 GO TO 80 

140 LET M=—M 

150 LET 1=1—2*(Х=43) 

160 LET C=Y—M*X 

170 GO TO 80 


If you want to show just a single moving spot rather than continuous 
lines, add suitable UNPLOT and PAUSE statements. 


1.7 CIRCLES AND OTHER INTERESTING SHAPES 


We will use all this theory eventually in developing some good graphics 
games, so let us consider a final chunk of coordinate geometry. 


Circles 


We can specify the equation of a circle by noting that every point on the 
circle is the same distance away from the centre: 





Taking the centre (a,b) and the radius as r then we can say for a general 
point (x, y) on the circle, using the ubiquitous pythagoras that 


(ка cus ee 


and we can take x—a as г cos 0 
and y—basrsin 0 where 0 is any angle 


since (г cos 0)? + (г sin 8)? = 12 (с0520 + 5120) 
г? as it happens 


Therefore we get x = а+ гсо5 0 
and y=a+r sin 0 


So let's see what the ZX81 makes of plotting a circle: 


10 PRINT “RADIUS="; 

20 INPUT R 

30 PRINT R;"bCENTRE:bX-"; 
40 INPUT A 

50 PRINTA;"bY-': 

60 INPUT B 

70 PRINT B 

80 FOR 0-0 TO 360 

90 LET P-Q*PI/180 

100 PLOT A+R*COS P,B+R*SIN P 
110 NEXT O 


RUN the program and enter the radius followed by the x— and y— со- 
ordinates of the centre. Make sure that the circle does not go over the 
edge of the screen in any direction. Before your eyes a circle will appear, 
albeit slowly. The slowness results from the evaluation of cosines and 
sines at line 100 — the ZX81 takes a long time to work these out. 


Exercise 1(f): Work out the equation of a circle centred at the 
origin and radius 40 and therefore write a program to draw 
a circle quadrant (quarter arc) on the screen with radius 40. 


Finally we choose a selection of interesting shapes and show how they 
may be plotted. 


18 


Parabola 
Here is a nice parabola 


10 FOR X-0 TO 63 

20 LET Y-INT((2.52—0.04* X)* X) 
30 PLOT X,Y 

40 NEXT X 


Ellipse 


An ellipse is almost a general case of a circle or a parabola. Try this 
general ellipse plotter: 


1 PRINT "A="; 
2 INPUTA 
3 PRINT A;"bB-"'; 
4 INPUT B 
5 PRINT B 
10 FOR 0-0 TO 360 
20 LET P=Q*PI/180 
30 PLOT A*(1+COS P),B*(1+SIN P) 
49 МЕХТО 


Try it with various values for A and B such as: 
30, B =20 


д, В 
ACCIUS, ве uH 


1.8 DRAWING WITH OTHER CHARACTERS 


The PRINT AT Instruction 


АН our graphics work so far has been of the ‘join the dots’ variety, since 
all the PLOT statement can do is to black-in squares. Fortunately this 
is not the limit of the ZX81's capability. The PRINT AT statement can 
also be used for picture drawing and it has one disadvantage but one- 
considerable advantage over PLOT. The disadvantages is that it cannot 
address parts of the screen in so much detail as PLOT — the figure 


below shows its limitations 


0 COLUMNS 31 


LINES 


21 


It can only draw in 22 x 32 positions and it works by means of specifying 
a line number and a column number, rather than standard x and y coord- 
inates. Its great advantage is that any ZX81 character can be placed at a 
position. 


The following simple routine illustrates the point 


10 INPUT L 

20 IF L<@ THEN STOP 
30 INPUT C 

40 INPUT S$ 

50 PRINT AT L,C;S$ 
60 GO TO 10 


RUN the program and then keep entering groups of three items specify- 


ing line number, column number and character (or character sequence) 
and the ZX81 puts the character at this screen position. 


ZX81 Video Show 
Any of the programs previously considered can be modified to use 
PRINT AT rather than PLOT, and as promised here is a program to give 
a pleasant background video display to any room: 


10 LET L0-0 
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20 LET L1-21 ... 15 for 1K ZX81's 
30 LET C0-0 
40 LET C1-31 .. 15 for 1K ZX81's 
45 LET Z$=CHR$(INT(RND*11+128*(RND<@.5))) 
50 FOR L=LØ TO 11 
60 PRINT AT L,CQ;Z$ 
70 NEXT L 
80 FOR C-C0 TO C1 
90 PRINT АТ L1,C;Z$ 
100 NEXT C 
110 FOR L=L1 TO LO STEP—1 
120 PRINT AT L,C1;Z$ 
130 NEXT L 
140 LET L1-L1—1 
150 LET С@=С@+1 
160 LET С1=С1—1 
170 FOR C=C1 TO CO STEP —1 
180 PRINT AT LOC;Z$ 
190 NEXT C 
200 LET 10-10+1 
205 IF LØ>=L1 THEN GO TO 500 
210 GO TO 45 
500 CLS 
510 RUN 


It could even prove as addictive as 'Emmerdale Farm'! 
or if you do not appreciate squares, how about circles? 


10 FOR R-10 TO 2 STEP —1 

15 LET Z$=CHRS(INT(RND*11+128*(RND<@.5))) 
20 FOR О-0 TO 360 STEP 10 

30 LET РЕОХР1/180 

40 PRINT AT 10+R*COS P,15+R*SIN P;Z$ 

50 NEXT O 

60 NEXT R 

70 CLS 

80 GO TO 10 


Try making your own variations — perhaps using a basic ellipse shape 
which grows fatter, thinner, longer or shorter with varying characters 
being used to draw it. You need not stick to graphics characters, 

many normal characters or inverse video characters can be very nice. 
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19  REALTIME 
Instructions 


At the beginning of the chapter we saw that realtime programs are ones 
in which the computer responds to user action immediately, no matter 
what other action it is currently taking. The ZX81 instruction that 
provides this facility isJNKEY$. There is however another instruction 
which assists in a similar feature, moving displays, and that is PAUSE. 


Almost all the programs in this section are designed for ZX81's running in 
compute and display mode (i.e. SLOW). However FAST mode is also 
available and in fact оп ВК ROM ZX80's it is compulsory. In FAST 

mode, the only way to generate moving displays in BASIC is to cause 

the ZX81 to display the results of its processing by the PAUSE instruction, 
or rather PAUSE and POKE together since problems occur if you forget 
the accompanying POKE. We will put very little emphasis on PAUSE in 
this section, since INKEY$ is the centre of the ZX81's realtime facilities. 


INKEYS 


INKEYS is at the same time the most peculiar and the most powerful 
instruction on the ZX81, and we hope that after reading this section and 
trying out the programs you will be rather better informed than if you 
only had access to Chapter 19 of the Sinclair Manual! 


First of all let us get our terminology right. INKEYS is not really an 
instruction like LET or IF but a function, since it is used as part of a 
ZX81 statement, and in fact has to be accessed via the FUNCTION key. 
Whenever the ZX81 executes a statement which includes INKEY$ it 
looks at the keyboard, and if a key is being pressed at that instant, the 
character of the key is put into INKEYS, i.e. if you were pressing 3 then 


INKEY$ = 43” 


If a key is not being pressed when the line containing INKEY$ is ех- 
ecuted, then INKEY$ is set to the null string. 


The following two line routine shows how it works 


10 PRINT INKEY$; 
20 GOTO 10 
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RUN the program and then briefly touch any key on the keyboard. 
Let's assume you touched P — you will see a number of P's displayed on 
the screen. You may wonder why there are several rather than just one, 
since you touched the key only once. To understand this you need to 
have an appreciation of how fast the ZX81 is computing (even іп SLOW 
mode!): while you have your finger on a key, albeit briefly, the ZX81 
cycles round the GOTO 10 loop several times, the number of times 
being shown Бу the number of characters printed. Try pressing another 
key, and as soon as you do you will see some more characters displayed 
on the screen. See if you can touch a key so briefiy that only one char- 
acter is displayed! While you are not touching a key, nothing is displayed 
on the screen, since INKEY$ is the nullstring, and PRINT 7”: produces 
nothing. However if line 10 had read 


10 PRINT INKEYS 


i.e. no semi-colon at the end, the program would have given quite a 
different effect since PRINT “” causes a new line to be displayed, апа 
the ZX81 quickly runs out of screen space. 


Try using the two line program above with entry of keys such as *, * 

or 7, ie. shift keys. You will see that depression of SHIFT has no effect, 
but SHIFTed keys are displayed normally, even keywords. There are 
however some exceptions eg: EDIT, FUNCTION, GRAPHICS and 
RUBOUT. These all produce “2” on the screen, as does the NEWLINE key. 
We see from this that we can never enter graphic symbols via INKEY$ — 
rather a shame as we shall see later. Also SPACE is always interpreted 

as BREAK and this stops the program. 


“То summarise where we have reached so far, we have seen that INKEY$ 
isa way of entering single characters into a program without the need for 
INPUT statements or even NEWLINE. 


Moving Blobs in Realtime 


Your reaction to the above treatment of INKEY$ may well be “ОК, so 
what?” since it is not immediately obvious how INKEYS сап be used. 
Hopefully this little program may change your mind. 


10 LET L = 10 

20 LET = 15 

30 LET Z$ = “W” (inverse space) 

40 IF INKEY$ = "5" THEN LET С-С--1 
50 IF INKEY$ = “6” THEN LET L=L+1 
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60 IF INKEY$ = “7” THEN LET L-L- 1 
70 IF INKEYS = "8" THEN LET C=C+1 
200 PRINT AT L, C; Z$ 
210 GO TO 40 


The program enables you to move a blob around the screen by pressing 
keys 5,6,7 or 8 and the blob moves according to the direction of the 
arrows on the keys. This is achieved by testing which key the user is 
pressing and changing accordingly the line and column numbers at which 
the blob is printed. RUN the program and see what interesting patterns 
can be produced. Only keys 5,6,7 or 8 will have any effect since these 
are the only values of INKEY$ for which the program takes any action. 
|f the blob goes off a screen edge, the program generally crashes, so to 
overcome this add the following lines 


80 LET L=L—L* (1222) + 228 (1=—1) .. 16 not 22 for 1K 
90 LET C =C — C* (C=32) + 32* (С--1) .. 26 not 32 for 1K 


and we get what is known as "wraparound" — if the line goes off one 
edge it reappears at the other edge. 


It would also be pleasant if we had a choice of the type of character 
shown on the screen, rather than just a blob. With ZX81 technology all 
things are possible! Add this 


100 LET К = CODE INKEYS 
110 IF (K<>@ AND K<33) OR (K>36 AND K«64) 
THEN LET Z$ = CHRSK 


If you now press any single character key other than 5,6,7 or 8 this 
character becomes the one being used for drawing on the screen. To 
stop any of these programs, simply press the SPACE key. 


Note that in line 110 above we are careful to avoid taking a value of 
INKEYS when no key is being pressed: we exclude it when it is equal 
to the null string (character code 0). Note also that line 110 has 


LET Z$ = CHR$ K 


rather than LET Z$ = INKEY$ as you might have expected. This is 
because it is possible that the value of INKEY$ might have changed 
between lines 100 and.110 (in particular it might be null) and this could 
cause inconsistencies in the program and therefore the resulting display. 


1.10 EXAMPLE PROGRAMS 
Introduction 


In this section we will see how many of the concepts, and especially the 
maths, outlined above can be used in sophisticated realtime programs. 
Each program is given with detailed documentation so that the reader 

can understand how the program has been designed and developed. 
Appendix One shows the method of program design used and it is strongly 
recommended that a definite methodology should be used in programming. 
Although it is very tempting to start typing in BASIC instructions as soon 
as possible when developing a program, this causes more delay later, and 

it is in fact much quicker to design a program properly before touching 
the keyboard. Also, if a program is developed according to our method, 
documentation such as that given below builds up naturally so that you 
do not have to write it all up afterwards. 


Anyway, on with the programs. 


SHOOTING GALLERY (1K Memory) 
Description 


The program simulates a shooting gallery that you might find at a fair. 
An object moves from left to right across the screen under a row of 
numbers 1 to 9. The player attempts to hit the object by pressing one 
of the numeric keys 1 to 9 as the object passes under the number. There 
are ten goes and the program displays the current number of hits and the 
go number. 


Sample Screen Format 


1-2 34 5-5 T 058 
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Method 


Set up screen and initialise hits H to zero 
Carry out the following with go number G = 1,2, —, 10 


papo 


Set object position C to zero 
Clear shot line 
Clear message line & print go number 
Display object at position C 
If a key 1 —9 pressed 1. display shot 
2. ifobjecthit: A. Display message 
B. Increment & 
display H 

C. Jump to (6) 
Wait for key to be released 
Increment C 
If C less then 31 jump to (d) 
Wait for 5 seconds 


oa mo 


Display end message & stop 


List of Variables 


се 0) X 
ин 


по. of hits scored 

go number (between 1 and 10) 

number of key pressed (valid only for keys 1 — 9) 
position of object on line 


Program Listing 


416 


10 
20 
30 


40 
50 
60 
65 
70 


100 
110 
130 
140 


LET Н=@ 

PRINT 

PRINT "bbb1bb2bb3bb4bb5bb6bb7bb8bb9bbb " 

(inverse spaces & digits) 

PRINT АТ 4,ф;"СО b NO.” (inverse) (ore O ЗА 

PRINT АТ 4,26;"HITS" (inverse) 

FOR G=1 TO 10 

LET С-0 

PRINT AT 3,0 ES SE ae EE C 

(inverse — 39 spaces) 77 

PRINT AT 4/46; ТАВ 12;"bbbbbbb" (25 ра ве») 

PRINT AT 3,C; М” (inverse space and graphics 5) 
` LET N=CODE INKEY$—28 

IF N<1 OR М9 THEN GO TO 220 
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; 2 fee م‎ i 
yili fu 2 di CLEA а PEL 2 
ХА / 


150 PRINT AT 3,N*3;"*" (inverse asterisk) 
160 IF N*3<>C+1 THEN GO TO 210 

170 PRINT АТ 4,12; 'GOT HIM” (inverse) <5- 

180 LET H=H+1 сана yea oh ee 
190 PRINT AT 4,30 ;H 

200 GO TO 240 

210 IF INKEY$<>" " THEN GO TO 110 

220 LET С=С+1 

230 IF C<>3@THEN GO TO 110 

240 PAUSE 25% / 7O 

250 NEXTG 

260 PRINT AT 4,12;"THE b END"' (inverse) 





MONEY MAZE (16K Memory) 
Description 


A treasure chest full of £5 notes is located in the centre of a maze. 
You are on the outside of the maze and have to reach the treasure by 
using keys 5,6,7 or 8 to control your movement (direction arrows). 
However the chest has caught fire and the longer you take the less 
money there will be. 


The program sets up and displays a 21 x 21 maze. The treasure chest is 
shown by £ and the player by O. A running counter of the amount of 
money left is shown to the right of the screen. The maze is displayed 
on the screen so that element i,j is at line i column j. 


Sample Screen Format 

















ine 1 -* 
line 3 == 
line 5 — 
line 7 - 
line 9 — 
line 13 > 
line 15 > 
line 17 > 
line 19 > 





line 21 > 





Method 


Array A of size 21 x 21 is used to hold the maze, with walls held as 128, 
space as Ø and the cash is 140 (inverse Е). 


|. Set up array as shown 

il. Print array in character form 
iii. Set sum of money M to 1000 
iv. Display M 


V. Set player's position at bottom of maze, line L and column C. 

VI. Display player's position 

vii. Pause to allow player time to see screen 

viii. Display player's position 

ix. Burn a fiver from M, and if M is zero, display message and stop 
х. Display M 

х1. Read number М from keyboard 

Xii. If N between 5 and 8 


a. UseN to update L and C to LI and CI 
b. If position (CI, LI) is the chest print message and stop 
c. If position (CI, LI) is space (not a wall) 
1. rubout position (C,L) 
2. change C to CI 
3. change L to LI 
4. jump to (viii) 
xiii. jump to (ix) 


List of Variables 


A — array of size 21 x 21 holding maze 
|.) — loop counters used in setting up array 
M — amount of money left 


L — line no. of player's position 

C — column no. of player's position 

N — code number of key pressed (valid for 5 to 8) 
LI — newline no. of player's position 

СІ — new column no. of player's position 


Program Listing 
10 DIM A (21,21) 


20 FOR 1=0 TO 8 STEP 2 
30 FOR Ј=1+1 TO 21-1 
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40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
200 
210 
220 
230 
240 
250 
260 
270 
300 
310 
320 
330 
332 
336 
340 
350 
355 
356 


360 
370 
380 
390 
400 
410 
420 
425 
430 
440 
450 
500 


LET А(1+1,Ј)=128 

LET A(21—1,J)-128 

LET А(Ј,1+1)=128 

LET A(J,21—1)=128 

NEXT J 

NEXT I 

LET A(3,11)=0 

LET А(7,11)-0 

LET А(13,11)-0 

LET А(17,11)-0 

LET A(11,11)=140 

PRINT 

FOR 1=1 TO 21 

PRINT "b"; 

FOR J=1 TO 21 

PRINT CHRS А(1,/); 

NEXT J 

PRINT 

NEXT I 

LET M-1000 

PRINT АТ 11,22;"£';M 

LET L-20 

EET Crt 

PRINT АТ L,C;"O" 

PAUSE 500 

PRINT АТ L,C; “O” 

LET М-М-5 

IF M<@ THEN GO TO 600 

IF М< 190 THEN PRINT AT 10, 
22; HORRY” 

PRINT АТ 11,23;М; ‘bbb’ 
LET N-CODE INKEY$—28 

IF N<5 OR N>8 THEN GO TO 350 
LET LI=L—(N=7)+(N=6) 

LET Cl=C+(N=8)—(N=5) 

IF А(1І,СІ)-140 THEN GO TO 500 
IF A(LI,Cl)<>@ THEN GO TO 350 
PRINT AT L,C;"b" 

LET ELI 

LET С-СІ 

GO TO 340 

PRINT АТ 10,22;“YOU СОТ” 
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510 STOP 
600 PRINT AT 10,22;"TOO SLOW” 


DUCK SHOOT (16K Memory) 


The author wishes to thank the designer of a similar game for the 
Research Machines 380 Z Microcomputer for the idea behind “Duck 
Shoot", the author's first experience of graphical games on a micro. 


Description 


A picture of a duck on a pond is displayed on the screen with the moon 
in the sky. The object is to shoot the duck making sure that you do not 
hit the moon in the process. Shooting is done by means of a double- 
barrelled cannon at the bottom left of the screen which fires up into the 
sky and the cannon ball travels in a parabola to eventually hit the pond, 
and hopefully the duck. The player chooses the angle of elevation of 
the cannon. There are five goes. 


For each go the duck and the moon are displayed at different (random) 
positions. The duck is drawn at a position starting between columns 
12 and 27 at the bottom of the screen, and the moon starting between 
columns 12 and 18 at the top of the screen. Scores are shown at the 
top right of the screen while the barrel number and angle are displayed 
at the top left. The number of the go is shown on the duck itself. The 
duck has a range of comments which it makes depending upon the 
accuracy or otherwise of the player's shot. The moon drops out of the 
sky if the cannon ball hits it. 


Sample Screen Format 


BARREL 1 1 DUCKS 
ANGLE - 48 0 MOONS 
2 SHOTS 
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Method 


(i) Initialise scores НО (диска), HM(moons) and S(shots) to zero 
(ii) Carry out the following for go number 6G = 1...5 
(a) clear screen 
(b) choose duck position D 5etween 12 & 27 along line 
(c) choose moon position M between 12 & 18 along line 
(d) draw screen display and headings 
(e) carry out the following for barrel number B = 1 and 2 
(1) Display barrel number 
(2) Enter angle of elevation A 
(3) If angle not between 459 and 85? go to (2) above 
(4) Display angle 
(5) Plot path of cannonball. For each plot position 
(x,y) 


А. If (x,y) ison the moon 
(i) Increment HM (moon hits) 
(ii) Drop moon out of sky 
(iii) Increment and display S (shots) 
(iv) Go to (f) below 


B. if (x,y) is оп the duck 
(i) tf (x,y) is a central hit 
(a) Display "DEAD" 
(b) Increment НО (duck hits) 
(c) increment and display S (shots) 
(d) Go to (f) beiow 
(и) Display “OUCH” 
(iii) Go to (7) below 
(6) Display "MISS" 
(7) Increment and display S (shots) 
(8) Wait 
(f) Wait 
(iii) Clear screen 
(iv) Display final score of ducks hit. 


List of Variables 
HD = no. of ducks killed 
HM = no. of times moon hit 


S < no. of shots fired 
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- до number (1—5) 

= starting x-axis position of duck 

x-axis position of moon 

7 barrel number (1 or 2) 

angle of elevation of cannon (valid for 45° —85? only) 
loop counter for display of cannon ball's path 


Ш 


ə“РочОоО 
I 


X = x position of cannon ball 

Y = y position of cannon ball 

M2 = 2timesM 

D2 = 2timesD 

2 = loop counter for display of falling moon 
Equation 


The path of the cannon ball is plotted using the following equations: 


X 
and Ү 


INT (0.0 14*1*(90 —A)) 
INT (1*(100 —1)*0.0172) forl = 0... 100 


The X equation is chosen so that the cannon ball lands in the pond at 

the far right of the screen when angle A is 45°. The Y equation is chosen 
so that the cannon ball reaches its maximum height when | = 50, i.e. in 
the middle of its flight path. 


Program Listing 


2 LETHD =0 
4 ТЕТНМ =0 - 
6 LETS=9 
10 FORG-1TO5 
20 CLS 
30 LET D=INT(RND*16)+12 
40 LET M» INT(RND*7)+12 
45 LET M2-M*2 
46 LET D2-D*2 
50 PRINT "BARREL" 
60 PRINT "ANGLE-?" 
70 PRINT AT @,25;HD;“DUCKS” 
80 PRINT АТ 1,25;HM;"MOONS" 
90 PRINT AT 2,25,S;"SHOTS" 
100 PRINT AT 1, МОА" 
110 PRINT AT 2,М; iD” 
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120 PRINT АТ 3,M; Ы” 

128 eRINT AT 217 а aoa. " (32 dots) 

140 PRINT AT 20,0; bb/" 

150 PRINT АТ 21,D;" 1888“ ;CHRS (G4 156) ШЗ” 

160 FOR B-1 TO2 

170 PRINT AT 0,6;В 

180 PRINT AT 1,6;?b" 

190 INPUT A 

200 IF A285 OR А< 45 THEN GO TO 190 

205 PRINT AT 1,6;A 

210 FOR 1-0 TO 100 

220 LET X-INT(0.014*1*(90—A)) 

230 LET Y=INT(I*(100-1) *0.0172) 

240 PLOT X,Y 

250 IF X<M2 OR X>M2+1 OR Y>41 OR Y«36 THEN GO 
TO 400 

270 LET HM=HM+1 

280 FOR Z=1TO 18 

290 PRINT AT Z,M;"b" 

300 PRINT AT Z+1,M; АА" 

310 PRINT АТ 7+2. М0" 

320 PRINT АТ 7+3,М; Ma” 

330 МЕХТ 2 

340 LET S=S+1 

350 PRINT AT 2,25;S 

360 GO TO 530 

400 IF X«D2 OR X» D249 OR Y>3 THEN GO ТО 495 

410 IF X-D2 OR Х-02+1 OR Х-02+8 OR Х-02+9 THEN GO 
TO 450 

420 PRINT AT 20,D—4;"DEAD" 

430 LET НО-НО+ 1 

432 LET S=S+1 

434 PRINT АТ 2,25;S 

440 GO TO 530 

450 PRINT AT 20,D—4;"OUCH" 

491 GO TO 500 

495 NEXT I 

497 PRINT AT 20,D—4;"MISS" 

500 LET S=S+1 

505 PRINT AT 2,25;5 

510 PAUSE 150 

520 NEXT B 
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530 PAUSE 150 

540 NEXT G 

550 CLS 

560 PRINT АТ 10,10;"THE END” (inverse) 

570 PRINT АТ 12,3;"YOU KILLEDb"HD;"bDUCKS" 


Several more games are included in Chapter Three. 
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CHAPTER TWO — INFORMATION PROCESSING 


2.1 INTRODUCTION 


This chapter is aimed at readers who want to use a ZX81 with 16K RAM 
to store and retrieve quantities of information, i.e. who want the micro- 
computer to act as an electronic filing system. The objective may be to 
design programs to assist in leisure activities or in small businesses. If you 
do not have a 16K RAM pack you will not 5e able to use much of the 
material in this chapter, but perhaps as you read through you will be 
encouraged to invest in one! 


Data and Data Processing 


RG Anderson in his book 'Data Processing and Management Information 
Systems’ defines data processing as "the systematic recording, arranging, 
filing, processing and dissemination of facts". The term is often used 
synonymously with business computing as against scientific or technical 
computing. As a general rule business data processing involves the simple 
manipulation of large quantities of information while technical com- 
puting involves the complex manipulation of small quantities of infor- 
mation. 


For example, a typical data processing activity might involve stock 
control: here a large number of records are maintained but the most 
complex processing involved would be simple addition or subtraction for 
goods received or despatched respectively. Contrast this with a typical 
technical computing activity, the evaluation of sets of equations: here a 
small set of coefficients is used as data but complex matrix arithmetic 
has to be used to produce the solutions. 


It is the author's opinion that data processing is a much more realistic 
function for a home computer than technical computing. Many people 
would like a computer to handle all their filing, from addresses and 
telephone numbers to recipes, but how many require trigonometric and 
logarithmic processing capabilities? The only possible application of 

such facilities is in games (certainly a useful way to use a home com- 
puter), but in general, sophisticated maths is not required. It is un- 
fortunate that home computer manufacturers, Sinclair Research included, 
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have addressed themselves more towards providing these technical com- 
puting facilities rather than data processing facilities such as large main 
memory capacities and good backing storage. In other words, Mr. 
Sinclair, why not forget about ARCSIN, ARCCOS and LN and give us 
a megabyte of online storage instead! 


Hobbyhorses aside, a 16K ZX81 can be used for some very useful small 
tasks on the data processing side and we hope to give you the tools to 
develop your own such programs in this chapter. 


2.2 CHARACTER HANDLING 
Character Processing 


While technical computing is mainly concerned with crunching numbers 
together, data processing deals largely with characters, either alphabetic 
characters or numbers not used for arithmetic purposes (e.g. code 
numbers). It is therefore essential that the reader has a good grasp of 
ZX81 character handling before embarking upon an information pro- 
cessing project. We suggest that you read over Chapters 7 and 21 of 
the Sinclair Manual and then follow the sections below. 


Dimensions of Strings 


A string can be used without first DIMensioning it, but giving a string a 
dimension can be useful if we always want it to be of fixed length. As 
an example, try this: 


10 DIM A$(3) 
20 PRINT "ENTER A WORD" 
30 INPUT А5 
40 PRINT А5 
50 GO TO 20 


The program will print the first three characters of any word you enter 
because A$ can only contain three characters. 


To stop the above program is difficult, but possible: rubout the quotes 
around the cursor when invited to enter a word and then enter CHR$ 
(99**99). This causes the ZX81 to attempt to evaluate 9999 — а 
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number too large for it to hold — so it crashes with error code 6. 


Returning to dimensions of strings, it can be very useful to define a one 
character string which will always be used to INPUT responses to 
questions in a program, e.g. 


10 DIM 25(1) 


100 PRINT "DO YOU WANT TO CONTINUE?" 
110 INPUT 25 
120 IF Z$-"N'" THEN STOP 


You may wonder why we bother with a dimension — why not do this: 


100 PRINT “ОО YOU WANT TO CONTINUE” 
110 INPUT 25 
120 IF Z$(1)-"N'" THEN STOP 


The answer is that if the user makes a null entry, i.e. just presses NEW- 
LINE, the first version is OK but the second version crashes with code 3 
at line 120 because 2%(1) does not exist! It is vital in data processing 
programs which other people will use that the INPUTs be made as idiot- 
proof as possible. (See BOMB-PROOFING in Section 2.5). 


Substrings 


As we will see later in this chapter, verification of information input to 
a program is very important. Otherwise bad data gets onto files and it 
tends to make the whole system look ropy. A common verification is 
to check whether a string is alphabetic, i.e. contains letters A ... Z only. 


10 PRINT "ENTER ALPHABETIC WORD" 

20 INPUT AS 

30 IF AS-"" "THEN GO ТО 20 

40 PRINT AS; 

50 FOR 1=1 TO LEN A$ 

60 IF А%(1)< “А” OR А$(1) »"Z" THEN GO ТО 100 
70 NEXT I 

80 PRINT “16 ALPHABETIC” 

90 STOP 6470 20 

100 PRINT "HAS ERROR CHARACTER AT POSITION"';I 
110 PRINT "PLEASE RE-ENTER” 
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120 GO TO 20 


Several techniques are employed in this program. Firstly at line 30 — 
always test for & null input and if one is found go back to the INPUT Р 
statement: try this out and see the effect from the user's end. Secondly 

at line 60 — relational operators work with characters as well as numbers. 
Lastly at line 100 — error messages should be as precise as possible to 
inform the user what he is doing wrong. 


N.B. Be careful when using this routine because it treats 'space' as non- 
alphabetic, so “JOHN SMITH” would be rejected as non-alphabetic. 


Exercise 2(a): modify the above program to allow spaces and 
hyphens as well as letters A to Z. 


We often need to determine whether a string contains a given word or 
sequence of characters. 


Exercise 2(b): write a program to enter a sentence and then test 
whether it contains the word "THE'' and give ап approp- 
riate message. 


2.3 DESIGN OF DATA PROCESSING PROGRAMS 


Systems Analysis 


In the world of business computing the analysis, design and implement- 
ation of computerised systems is a profession in itself. Obviously we are 
not going to call in a professional systems analyst to design programs for 
our 16K ZX81, but many of the methods used by the professionals can be 
be scaled down and applied for our purposes. 


Is It Feasible? 


One of the first stages in systems analysis is the feasibility study — a 
survey of whether the area under study can usefully be computerised. 
Many data processing tasks are best done manually rather than by com- 
puter, and this applies especially to home DP. For example you may 
have some excellent ideas for a Recipe Access and Testing System for 
your spouse but how feasible is it that he/she will use RATS on a day-to- 
day basis? Do you have enough extra sockets or even room in the 
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kitchen for a ZX81, TV and cassette recorder? Will you be able то con- 
vince him/her that it is ten times better than his/her present manual 
system? Can the ZX81 cope with RATS storage requirements? Clearly 
these questions need honest answers before embarking upon a project 
which could consume many hours of precious time. A few of the areas 
you should consider are listed below: 


BENEFITS — what substantial advantages would a computer- 
ised system have over the present system? 


ZX81 CAPACITY — can the ZX81 store the program routines 
and data necessary for the system? 


TECHNICAL — аге you sufficiently knowledgeable about the 
ABILITY system and the relevant ZX81 facilities to 
implement your aims? 


TIMESCALE - сап the system be implemented in the time 
available? 
USE — will the system be regularly and conscientiously 


used by the person(s) for whom it is designed? 


Only after getting a positive answer to the above questions should you 
proceed with the design. 


How Is It Done Now? 


Before designing a new system a systems analyst takes a detailed look at 
how the present system operates using techniques such as interviewing 
staff, examination of documents, questionnaires and observation. If 
you are designing a system to be used by yourself you will have a clear 
idea of how you currently handle things and how things could be 
improved. However if you are producing a program to be used by some- 
one else, you must get all this information from them. Since we are 
considering mainly filing systems on the ZX81 you need details of 


Number of file records — present and future requirements 
Size of records 

How records are identified 

How often records are added, changed or deleted. 

Typical contents of records 
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How records are processed 
Checking procedures 


When we discuss the design of DP programs you will see why such facts 
are needed. 


How Should 1+ Be Done? 


When getting together your ideas regarding features to be included in the 
computerised DP system, you need to be clear of the limitations of the 
current system and how these could be overcome. Eventually of course 
the facilities to be provided need to be listed in detail and a program 
routine designed to provide each facility. Appendix One describes a 
programming methodology that works: it is very important when writing 
a large program that a considerable amount of detailed program design 

is put in before touching the ZX81 keyboard. 


Y ou will need to pay particular attention to record formats and screen 
formats, i.e. what will be held in a file and what will appear on the screen. 
File formats are discussed in detail in Section 2.4. Good screen formats 
are vital for a workable program, particularly if the program will be used 
by a non-computer specialist, for example your husband or wife. 
Typically, in a section of the program to allow you to add new records to 
the file, the information presented on the screen should clearly and 
concisely describe what data needs to be entered and in what order. 
Features such as inverse video and judicious use of PRINT AT statements 
can make the program very user-friendly rather than user-nasty. It is 

best to actually map out on a piece of graph paper what will appear on 
the screen at major points in the program, and this can then be used to 
give you line and column numbers when you come to program your 
PRINT statements. 


The Moment of Truth 


Having designed the program, written it and debugged it according to 
the rules in Appendix One, the time comes to actually use it — “до live” 
in computing terminology. If someone else is using the program make 
sure that they are well-informed as to what to do to reap the amazing 
benefits offered by the program or else your efforts will have been 
wasted. In fact, if your family or others will be using your masterpiece 
of the programmer's art, a major exercise on your part will be selling the 
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system to them and training them: people will not use а computer 
(particularly if they object to nasty electronic objects and trailing wires) 
unless they are convinced it will help them in their own tasks or 
activities. 


A final word of caution — a “parallel implementation” is often the best 
way of introducing your new system. In other words do not burn all 
your address books and telephone directories on the day that you intro- 
duce your Computerised Address and Telephone System. There is the 
remote possibility that someone might try something that you had not 
thought of and a hitherto unnoticed bug in CATS will jump out and 
grab the ZX81 by the throat; or even the not unheard of vagaries of 16K 
RAM packs could make the system die just after you have typed in a 
hundred and fifty names and addresses. 


24 DATA STRUCTURES 


Definitions 


In this section we consider how information may best be organised for 
use as an 'electronic filing system'. 


First we define the terms used. A field is an item of data on a particular 
topic. A record is a collection of fields with some feature in common, 
and a file is a collection of related records, often organised in order. 


To illustrate this terminology we introduce a sample application, a club 
membership list. This example will be used as the basis for all the con- 
cepts introduced in later sections of the chapter also. Assume that the 
list is currently kept by means of cards in a box, one card per member. 
The file is then the collection of cards in the box, while a record is an 
individual card and a field is some item on the card, e.g. name. 
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А card might look like this: 


BETELGEUSE BREAKERS CLUB 


Membership Form 


N.B. For the 
uninitiated, HANDLE 
is the code name used 
to identify a breaker 
or CB user 





Files 


The formats of records and fields are very important since the file forms 
the heart of the data processing system. Each heading on the card above 
will be a field on a member's record in the Betelgeuse Breakers Club 
(BBC) system which we are now starting to design. Whereas on a card 
we can have a few dotted lines upon which can be entered information, 
in a computerised system we must be much more precise as to the 
length of fields. The maximum number of characters allowed for each 
field must be chosen carefully. Every character will take up a byte of 
ZX81 memory so brevity is to be encouraged, although clarity must not 
suffer as a result. 


Assume we choose the following: 


NAME — length 15 characters 

ADDRESS — length 50 characters 
POSTCODE — length 8 characters 
TELEPHONE NUMBER — maximum of 10 digits 
SPECIAL INTEREST - length 20 characters 
MEMBERSHIP NUMBER — 3 digits 

HANDLE - length 15 characters 
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Two fields above are numeric. As Ше reader is no doubt aware, numbers 
can either be stored in the ZX81 as characters or digits, e.g. 


LET А3-“ 123” (characters) 
or LET A-123 (digits) 


As far as memory requirements are concerned, a character string is stored 
in N*2 bytes where N is the number of characters, while a number is 
always stored in five bytes. Therefore if a number is more than three 
digits long it is more economic to use numeric format than character 
format. Another consideration is the usage to which the number is put: 
if the number will be used in any calculations it may be best to store it 

in numeric format since arithmetic cannot be carried out on characters, 
although of course VAL can be used to convert a number from character 
format to numeric format. 


It may be helpful to the programmer if we split some of the fields down 
into subfields. For example, if we want to access membership records by 
surname then we could make NAME split into FORENAME and SUR- 
NAME, or perhaps INITIALS and SURNAME. Similarly, a separate 

field for TOWN could be useful: it all depends, as we discuss below, on 
how the file will be accessed. 


Tables 


The SPECIAL INTEREST field merits more detailed attention. It is 
quite likely that the interests of the Betelgeuse Breakers can be 
classified into main areas. To save space on the file we could then 
choose some code or code number to identify each of these special 
interests. For example: 


Code No. Special Interest 
1 Demolition 
2 Pangalactic Gargle Blasters 
3 Sirius Cybernetics Corporation 
4 Improbability Drive 
9 Interplanetary DX 
6 Vogon Poetry 


and so on. 


|f the actual interest had to be displayed somewhere in the program, a 
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table could be kept relating the code number to the special interest. In 
fact, for simplicity the code number could act as the subscript to a 
string array holding the special interests. 


Other Data Structures 


For completeness it should be mentioned that several other ways of 
organising data apart from simple files and tables are possible. Linked 
lists and tree structures can be very useful in certain applications. The 
diagram below shows a binary tree structure: 


HARRIS 
PRIME P 
IBM HP ICL BURROUGHS 


GEC DATA GENERAL 


Such structures are implemented by means of each record having a left 
and right pointer to other records. Such organisation can be very useful 
in manipulating the data contained therein, since to move records around 
the tree (e.g. in sorting) involves only the resetting of pointers. 


Files, Tables and the ZX81 


Most microcomputers have facilities to store files of data on a secondary 
memory device such as cassettes or floppy discs. Unfortunately the 
Sinclair ZX81 does not. However, when a ZX81 program is SAVED on 
cassette the data used by the program (in variables and arrays) is stored 


as well, and it is this feature that enables us to consider file processing on 
a ZX81. 


Returning to our example, BBC could use an array for each field on a 
record 


e.g. array N$ for NAMES 
array A$ for ADDRESSES 
array РФ for POSTCODES 
array T for TELEPHONE NUMBERS 
array S for SPECIAL INTEREST code numbers 
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array M for MEMBERSH:P numbers 
array H$ for HANDLE 


Then a complete record would consist of a combination of members of 
these arrays, e.g. the first member would have his name stored in N$(1) 
address in A$(1), postcode in P$(1), telephone number in T(1) and so оп. 


Assuming the system is designed for one hundred members, the arrays 
would be declared as follows: 


DIM М%(100,15) 
DIM А%(100,50) 
DIM Р%(100,8) 
DIM Т(100) 
DIM S(100) 
DIM М(100) 
DIM H$(100,15) 


We can immediately calculate how much storage time this will occupy 


array N$ takes up about 100x15 = 1500 bytes 
array nS — — — 100x50 = 5000 bytes 

БЕРІ” 100х8 = 800 bytes 
- P ETE 100х5 - 500 Бутез 
5 5 ачы. 100 x 5 - 500 bytes 
5 M то nu 100 x 5 - 500 bytes 
5 27 Е теам 100 х 15 = 1500 bytes 


Total 10300 bytes 


Another approach to file storage on the ZX81 is to have a single array, say 
R$, holding the records so that R$(1) = first record, and so on. In this 
case each field starts at a given position and the numbers must be stored 
in character form. We may describe the records in R$ using a RECORD 
FORMAT document such as the one following :— 
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BBC System RECORD FORMAT Member File 


No. of Records» IOO Length of Record - 102 bytes 


Name of Array= R $ 


EELS START END 
No. FIELD NAME БҮРЕ ВУ ГЕ LENGTH| VALUES 
\ 15 15 


Name 





Кадгезъ 
cDrpewt 








Town 
Postcode 

Tel. No. 

Interest Code 

Membership No. 
Handle 




















For 100 records we declare R$ as DIM R$(100, 102) which will take up 
10200 bytes approximately. 


Notice that we have split ADDRESS into STREET and TOWN, that is 
the TOWN will always start at the 46th character position. 


This is in fact the record format that we will use in this chapter to 
develop BBC programs. However it may help to mention an alternative 
in record design — that of variable length fields. |п the record format 
above, much space will be wasted by data not filling their allowed field 
sizes. For example our sample record would be stored as : 


1 16 46 





* * * 
(FORDbPRE FECTbbb23bCHATHAMbGARD ENSbbbbbbbbbbbb LONDON: 





a 74 84 85 88 102 


+ + + + + 


ББББББЬБЬБЬБЬЗИХВТ 012359545 1 425 EARTHMANbbbbbbb | (b= space) 
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Which contains a lot of unused space. With variable length working we 
store a special terminator symbol after each field, and it is this that 
indicates to the program the end of one field and the start of another. 
We could use inverse characters as terminators, e.g.: 


FORDbPREFECT [S$]23bCHATHAMbGARDENSÍT]LONDON [P]SW1Xb8LB 
[T]g1235964d 1! 1 М]42 Н]ЕАВТНМАМ 


which only takes up 71 bytes rather than 102 above. If this is an average 
saving of space, then with 100 records we will save about 3100 bytes. 

The trade-off is that extra processing is required by the program to find 
and pick out specific fields. If you are short on file storage space this is 
certainly the technique to use, if your computer has the facilities to do 
this. Unfortunately the ZX81 does not since we are limited by the way in 
which the ZX81 handles string arrays. |f we want to store 100 records in 
a string array R$, we must dimension R$ thus 

thus 


DIM R$(100,N) 


where N is the length of each record. Thus we must choose a fixed record 
length, although we may have variable length fields within a record. 


Variable Length Records 


The only way of implementing true variable length records is to store 
the entire file as one long string with separator symbols between each of 
the records. We could for example use inverse asterisks, e.g. 


R$ 


[Recon i Т. [Recono? [+ econo a[*[neconos [+ [we 


In this way each record only takes up the number of bytes that it needs. 
However what you win on the swings you lose on the roundabouts and 
efficient storage formats require extra processing to access and use them. 
One fairly easy way of accessing records stored in this format is to set up 
a pointer array P, in which P(i) shows the starting position of record 

iin R$. So to extract record 15 from the array and put it into X$ we 
have 


LET X$ = R$(P(15) TO P(16)—1) 
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Using this method we can dispense with the separator symbols and store 
one record immediately after another. 


As an example we can write a program which invites the user to enter 

ten names; store the names in a single string N$ and set up pointers in 
array P to indicate the starting position of each name. Then we invite the 
user to enter a record number (between 1 & 10) and extract and print 
out the appropriate record. 


The program is listed below: 


Method: 
(i) 


DIM N$(300) 

DIM P(11) 

LET C=1 

PRINT "PLEASE ENTER 10 NAMES" 
FOR 1=1 ТО 10 

PRINT TAB 5;I;")b"'; 

INPUT X$ 

IF X$=" "THEN GO TO 60 

LET P(I)=C 

LET L-LEN X$ 

LET N$(C TO C+L—1)=X$ 

LET С=С. 

PRINT X$ 

NEXT | 

LET P(I)=C 

PAUSE 200 

POKE 16437,255 

CLS 

PRINT АТ 10,0;'ENTER RECORD NUMBER ОВ Ø TO STOP” 
INPUT N 

IF N=@ THEN STOP 

IF N<@ OR М> 10 THEN GO TO 160 
CLS 

PRINT АТ 10,7; “ВЕСОНО МОМВЕНВ “М 
PRINT АТ 12,14;"|S" 

PRINT АТ 14,(31+P(N)—P(N+1))/2:N$(P(N) TO P(N+1)—1) 
GO TO 130 


Set current position pointer C to 1 


(ii) Carry out the following for entry number 1=1...10 
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(iii) 
(iv) 
(v) 
(vi) 
(vii) 
(viii) 
(ix) 
(x) 


(xi) 


(a) Enter name X$ 

(b) Store C at position | in pointer array P 

(c) Calculate length L of X$ 

(d) Insert name X$ into array N$ between positions C and 
C+L—1 

(e) Update C to next free position in array N$ 

(f) Print name X$ 

Store final value of C in P(11) 

Wait for 4 seconds 

Clear screen 

Enter record number N 

If N70 stop 

If N not between @ and 10 then go back to (vi) 

Clear screen 

Display record number N by accessing between positions P(N) 

and P(N+1)—1 in array N$ 

Go back to (iv) 


List of Variable Names 


array МФ = holds the 10 names as a single string 

array P = holds pointers to starting positions of names іп N$ 

C = shows next free position in array N$ 

| loop counter indicating sequence number of name 
being entered 

Х% name as entered 

Е length of Х$ 

N record number to be printed 

Comments 


The technique of adding records to a single string is very useful and can 
be applied to records having multiple fields, each of which can themselves 
be of variable length. 


N.B. The weird looking algebra at line 210 in the column position is to 
make sure that the name is printed centrally on the screen, whatever the 
length. As we will see in the next section, clarity or even prettiness of 
output gives greater user-friendliness (Programs with Pleasant 
Personalities). 
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25 FILE PROCESSING 


Introduction 


Having considered the different ways in which information can be stored 
in memory we can look at typical ways of processing it. We will first of 
all look at our example of the Betelgeuse Breakers Club (BBC) member- 
ship list in more detail, delving into what processing facilities would be 
required; we then think of what features need to be incorporated in file 
processing systems generally; and finally we split file processing down 
into typical modules such as file creation, validation, sorting and up- 
date, and use the BBC example to illustrate each of these concepts. 


Sample Requirement 


In Section 2.4 a typical Betelgeuse Breakers Club membership card was 
shown, and the file format for a computerised system was also 
explained (see page 46). 


In the design of large computer program suites it is common for a user 
department to write a report specifying what facilities are required — an 
OPERATIONAL REQUIREMENT. Although we are considering 
information processing on a much smaller scale, it is still necessary to 
list what features our program aims to provide, since for every major 
facility a section will need to be included in the program. 


The Secretary of the Betelgeuse Breakers Club will probably be looking 
for facilities in a computer system similar to the requirements of any 
Club Secretary. Let us assume these are: 


(i) finding a record by name, membership number or handle 

(ii) getting a list of all members’ names and handles 

(iii) getting a list of all members interested in a certain topic. 

(iv) finding out which membership subscriptions are due: if, 
as is likely, membership numbers are handed oüt chrono- 
logically, this effectively means listing members with 
numbers in a certain range. 


In addition there are certain run-of-the-mill facilities that must be 
available including adding and removing records and so on. These 
facilities will be formalised and developed as program modules in the 
final subsection of 2.5. 
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Program Features 


Before seeing how a typical file processing program is written it is a 
salutary exercise to consider certain elements of programming style and 
technique. We aim to design systems which will be bomb-proof (or idiot- 
proof), user-friendly and garbage-free. Such terms may mean as little to 
the reader at this stage as redneck radio to an Easter Bunny, but all will 
be made clear. 


BOMB-PROOFING is the careful design of programs and particularly 
INPUT sections so that the program cannot be made to terminate 
abnormally, (i.e. crash or bomb out). This is particularly important if 
the program user is not the program author. To achieve good bomb- 
proofing the program designer has to develop a very low opinion of 
the abilities of the intended user (even if it is himself), and hence the 
synonymous term idiot-proofing. In other words, if a mistake can be 
made, assume the user will make it. 


As a simple example, consider a part of a program in which a number 
between () and 999 must be entered, e.g. as a membership number. 
Bomb-proofing theory suggests that we should tell the user the valid 
range and also check his entry: 


100 PRINT "ENTER MEMBERSHIP NO. (0-999)” 
110 INPUTM 
120 IF M«0 OR M>999 THEN GO TO 110 


We find that causing the program to wait until the user enters a correct 
number is usually sufficient, but some designers prefer to add an extra 
message, e.g. 


110 INPUT M 

120 IF M>=@ AND M<=999 THEN GO TO 150 
130 PRINT “OUT OF RANGE:REENTER” 
140 GO TO 110 

T 


However with this system, if the user persists in entering rubbish the 
number of error riiessages printed will eventually fill the screen and 
thus crash the system. 


Nevertheless the major fault in the discussion so far is that if the user 
makes a non-numeric entry, e.g. WHAT, then the system crashes. The 
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only мау to get round this is never to have straight numeric INPUT 
statements but always to use strings and then convert them to numbers 
if they are valid, e.g. 


100 PRINT "ENTER MEMBERSHIP NO.(0—999)" 
110 INPUT М5 

120 FOR 1=1 TO LEN M$ 

130 IF М$(1) «"0" OR M$(I)» "9" THEN GO TO 110 
140 NEXT I 

150 LET M-VAL M$ 

160 IF М>999 THEN GO TO 110 


If several numbers are required to be input in a program it is a good idea 
to write a general subroutine to carry out the string-to-numeric conver- 
sion. 


As far as string inputs are concerned, the main idiotic action to beware 

of is the null input, i.e. where the user just hits the NEWLINE key. In | 
the last example above LEN M$ at line 120 evaluates to zero so the ^ 
FOR..NEXT loop is stopped and line 150 cannot be executed because 
VAL of the null string is incorrect (error code C). Therefore every string 
input must be followed by a test for the null string. Here: 


115 IF MS-''"THEN GO ТО 110 


However the reader should note that if the string has previously been 
DIMensioned then this test will not work. This is because the ZX81 sets 
a string to all spaces when it is DIMensioned. You can show this by the 
following simple program 


10 DIM M$(3) 
20 INPUT M$ 
30 PRINT ".'MS$;"." 


Do a RUN 20 and enter just NEWLINE : M$ is null. However including 
the DIM statement by RUN and following the exactly similar procedure 
causes three spaces to be printed for M$. 


USER-F RIENDLINESS was the second objective in program design. 


We have already referred to this and in fact idiot-proofing is part of 
being user-friendly or perhaps user-condescending. It consists of making 
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the program as easy to use and human-like as possible. Prompts should 
be in plain English wherever possible and screen formats should look 
nice with clear headings, central placing and highlighted where appropriate. 


As suggested in Section 2.3 the program designer may map out each 
screen display on a piece of graph paper and check whether the display 
meets these objectives. 


GA RBAGE-FREE was the third quality required, and this refers to the 
old computer adage “С1СО” or “garbage in, garbage out". In other 
words if you accept incorrect data into a computer system then you will 
get incorrect results. Here we are not considering errors which cause a 
program to crash but rather errors which produce wrong results. This is 
particularly relevant when information is being fed in to be used as file 
records: once information is on file it may be difficult and messy to 
remove it. 


Books on systems analysis theory list a vast range of checks which can be 
carried out on input data to avoid garbage being accepted onto file. Such 
validation methods include format checks, range checks, period checks, 
compatibility checks and many more. The alphabetic validation listed 
on page 37 is a typical example of making sure that numeric or special 
characters are not accepted into straight alphabetic fields such as that 
for a person's name. 


Validation techniques often include an element of redundancy and the 
use of a check digit is a good example. A check digit is an extra digit 
at the end of a code number which is formed by some specified calcula- 
tion on the code number. The check digit would initially be calculated 
when the code-number was first allocated and then when the code is 
entered into a program, the program includes a routine to recalculate 
the check digit : if a discrepancy appears then the entry is incorrect. 


Unfortunately the reader may find that in all these three aims, some 


limitations have то-Бе made purely because of lack of ZX81 memory 
space. 
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Program Modules 
All of the program modules required by the Betelgeuse Breakers Club 
will be included in a single ZX81 program. The program will be menu- 
driven, that is, a menu of options available will be displayed at the 
beginning, and after the option chosen is completed the program returns 
to the menu. 


The modular structure of the program is shown below 


DATA MENU 
INITIALISATION 


А, 
ВЕСОВО ВЕСОКО RECORD RECORD FILE 
ADDITION SORT| |DELETION AMENDMENT RETRIEVAL LISTING 
RECORD 
ENTRY Е. 
VALIDATION 
ROUTINES 


DATA INITIALISATION 


In the first section of the program we declare the arrays required and 
other initial data values. 


The arrays used are: 


N$ - Member's name, length 15 characters 
S$ = Member's street, length 30 characters № 
. T$ = Member's town, length 20 characters 
<P$ = Member's postcode, length 8 characters 
B$ = Member's telephone number, length 10 characters 
C$ = Member's interest code, length 1 character 
M$ = Member's number, length З characters 
Н$ = Member's handle, length 15 characters 
R$ - the membership file, 80 records of 102 characters 
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general user's response, length 1 character 

table of interests, 9 records of 15 characters each 
record number entry, length 3 characters 
working space for sorting, length 102 characters 


We also define N; the number of records currently on file. Note we are 
restricting this to a maximum of EIGHT Y because of memory limitations. 


This section is only used in the first program run to give initial values to 
data — All subsequent program runs are started by GO TO 50 so that 
previously defined data are retained. \ 


MENU: 


/ 


DIM N$(15) 2 

ОІМ 5%(30) \ > 
ОІМ Т%(20) мита 
DIM Р$(8) & 

DIM В (10) (г 

DIM C$(1) 

DIM M$(3) 

DIM H$(15) | 
DIM R$(80,102) Ў 
DIM 2841) cm 
DIM 1%(9,15) 

DIM X$(3) 

DIM W$(1@2) 

LET М-0 

LET 1$(1)=“‘Interest 1” 
LET I$(2)=" Interest 2'' 
LET I$(3)7" Interest 3” 
LET 15(4)<“ Interest 4" 
LET 15(5)-“ Interest 5” 
LET 1$(6)=“‘Interest 6” 
LET I$(7)=” Interest 7" 
LET 1$(8)="‘Interest 8” 
LET 1$(9)="‘Interest 9” 


... actual data chosen as required 


The menu section displays the choice of options available and directs 
program control to the appropriate module (Б-зрасе, below). 
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50 CLS 
60 PRINT TAB 4;"BETELGEUSEbBREAKERSbCLUB" 
70 PRINT 
80 PRINT "1.bADDbAbRECORD"' 
90 PRINT "2.bDSORTbRECORDS" 
100 PRINT "3bDELETEbAbRECORD" 
110 PRINT ‘’4.bCHANGEbAbRECORD” 
120 PRINT “5.bDISPLAYbAbRECORD” 
130 PRINT “6.bLISTbTHEbFILE” 
140 PRINT АТ 19,0;'ENTERbNO.bREQUIREDbORbÜbTObSTOP"' 
150 INPUT 25 
155 IF Z$="0" THEN STOP . 
160 LET MO-CODE 7$—28 / 
170 IF MO<1 OR MO>6 THEN СО TO 150 
180 GO TO 500 *MO 


MO is the menu option number chosen. 


- RECORD ENTRY: 


Both option number 1 and option number 4 will require the entry of a 
record. In the former case, a new record will be added, whereas in the 
latter case an already existing record will be changed. However the 
entries will both require formatting and checking of inputs, so we write 
a general-purpose record entry module which can be used by both 
options. 

The module will be entered with RN set to the number of the record 
to be entered. It then foilows this method: 


(i) Clear screen. 
(ii) Display sequence number RN of record to be entered 
(iii) Enter a member record: 
(a) Enter name into N$ 
(b) Enter street into S$ 
(c) Enter town into T$ 
(d) Enter postcode into P$ 
(e) Enter telephone number into B$, checking it is numeric 
(f) Enter interest code into C$, checking it is 1—9 
(9) Enter membership number into M$, checking it is 0—999 
(h) Enter handle into H$ 
(iv) Display record as entered. 
(v) User confirms or cancels record 


56 


(vi) 


(b) If cancelled 


H$ to R$ (RN) 
(2) add 1 to RN 
(3) Output confirmation message 
(4) Go to (vi) below 
(1) Clear screen 
(2) Output cancellation message. 


Invite entry of NEWLINE or M 
(a) If NEWLINE, go to (i) above 
(b) If M return to menu. 


(a) If confirmed (1) move NS, S$, T$, PS, B$, C$, M$ and 


Notice that we do not put the user's entries straight onto the file R$: we 
demand positive confirmation of his entries before this happens (step (v) 


above). 


The BASIC for this section appears below: 


5000 
5010 
5020 
5030 
5050 
5060 
5070 
5080 
5100 
5110 
5120 
5140 
5150 
5160 
5180 
5190 
5200 
5220 
5230 
5240 
5250 
5260 
5280 
5290 
5300 


CLS 


PRINT TAB 4;"ENTRYbOFbRECORDbNUMBERDb";RN 


PRINT АТ 2,0;"NAME:"'; (inverse) 
INPUT № 

PRINT N$ 

PRINT АТ 4,0;"ADDRESS" (inverse) 
PRINT AT 5,4;"STREET:"; (inverse) 
INPUT SS 

PRINT S$ 

PRINT TAB 4/“ТОУУМ:”: (inverse) 
INPUT T$ 

PRINT T$ 

PRINT "POSTCODE:"; (inverse) 
INPUT P$ 

PRINT P$ 

PRINT АТ 9,Q;"TELbNO:"'; (inverse) 
INPUT В$ 

GO SUB 9000 

IF NOT OK THEN GO TO 5200 
PRINT В5 

PRINT AT 11,0;'INTERESTbCODE:"; (inverse) 
INPUT C$ 

GO SUB 9100 

IF NOT OK THEN GO TO 5260 
PRINT C$ 
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5310 PRINT АТ 13,0;"MEMBERSHIPDbNO:" (inverse) 
5320 INPUT MS 

5340 СО SUB 9202 

5350 IF NOT OK THEN GO TO 5320 

5360 PRINT M$ 

5370 PRINT AT 15,0; HANDLE:"'; (inverse) 
5380 INPUT HS 

5400 PRINT HS 

5410 PRINT АТ 19,0; 15ЫТНІ5ЫСОВВЕСТ?” 
5420 INPUT 2% 

5430 IF Z$-"N" THEN GO TO 5570 

5440 IF Z$-"Y" THEN GO ТО 5460 

5450 СОТО 5420 

5460 LET RS(RN,1 TO 15)=N$ 

5470 LET RS(RN,16 TO 45)-55 

5480 LET RS(RN,46 TO 65)- TS 

5490 LET RS(RN,66 TO 73)=P$ 

5500 LET RS(RN,74 TO 83)=B$ 

5510 LET RS(RN,84)-C$ 

5520 LET RS(RN,85 TO 87)=М$ 

5530 LET RS(RN,88 TO 102)=H$ 

5540 PRINT AT 19,0;"ВЕСОВРЬАРОЕОЬТОБЕН Е” 
5550 LET RN=RN+1 

5560 RETURN 

5570  CLS 

5580 PRINT АТ 19,0;"ENTRYbCANCELLED" 

5590 RETURN 


As you can see it is all good solid boring stuff — the meat of data pro- 
cessing. However, having it as a subroutine at least means we do not 


need to enter it twice. 


The routine returns with RN incremented by one if a record has been 
entered onto the file, or the same if no record has been entered. 


The screen format used is: 
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ENTRY OF RECORD NUMBER — 
NAME: 
ADDRESS 
STREET: 





TOWN: 
POSTCODE: 





TEL. NO: 
INTEREST CODE: 
MEMBERSHIP NO: 
HANDLE: 


Message Line 





VALIDATION ROUTINES 


The record entry section invokes three subroutines to check the entry of 
telephone number, interest code and membership number. Each of the 
routines return a value OK, set to zero if the entry was invalid or one if 
it was valid. 


Telephone number validation: 
9000 LET Ок-0 


3010 FOR I-1 TO 10 
9020 IF BS(I)-"b" OR (B$(1)>="0" AND BS$(I) «-"9") THEN 


GO TO 9040 
9030 RETURN 
9040 | NEXT I 


9050 LET OK=1 
9060 RETURN 


Interest code validation: 


9100 LET OK-0 

9110 IF C$-"b" THEN LET C$="0" 

9120 IF C$«'"Q" OR C$>"9" THEN RETURN 
9130 LET OK-1 

9140 RETURN 
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Membership number validation: 


9200 LET OK-0 

9210 FORI=1TO3 

9230 IF MS(I) -"0" OR MS(I)» "9" THEN RETURN 
9240 | NEXT I 

9250 LET M-VAL M$ 

9260 IF M=@ THEN RETURN 

9270 LET OK=1 

9280 RETURN 


We can also have record number validation: 


9300 LET OK=0 

9310 IF X$(1)="b" THEN RETURN 

9320 FORI=1TO3 

9330 IF XS(I)-"b" OR (Х6(1)<-“9” AND X$(I)>="0") 
THEN GO TO 9350 

9340 RETURN 

9350 МЕХТІ 

9360 LET VN-VAL X$ 

9370 IF VN-N OR VN-0 THEN RETURN 

9380 LET OK=1 

9390 RETURN 


RECORD ADDITION: 


This just adds a record at the end of the file and optionally repeats 


500 LET RN=N+1 
510 GO SUB 5000 


—— 


520 IF RN=N+2 THEN LET ММ+ 1) 
530 PRINT АТ 20,0;"PRESSbNEWEINEbTObADDbRECORD 
b”;RN 


540 PRINT АТ 21,6;“ORbMbFORbMENU” 
550 INPUT Z$ 

560 IF Z$-"b'" THEN GO TO 510 

570 IF Z$-"M" THEN GO TO 50 

580 GO TO 550 
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RECORD AMENDMENT 


This is very similar to record addition, but allows the user to re-input 
and therefore change a record already on file: 


2000 CLS 

2010 PRINT АТ 20,0;“ENTERbDNUMBERbOFbRECORD"” 

2020 INPUT X$ 

2030 GO SUB 9300 

2040 IF NOT OK THEN GO TO 2020 

2050 LET RN=VN 

2100 GO SUB 5000 

2200 PRINT AT 20,0;’PRESSbNEWLINEbTObCHANGED 
ANOTHER" 

2210 PRINT AT 21,6;’ORbMbFORbMENU” 

2220 INPUT 25 

2230 IF Z$-''b" THEN GO TO 2000 

2240 IF Z$-'"M' THEN GO TO 50 

2250 GO TO 2220 


SORT: 


It is likely that the membership file will be in membership number order, 
since as praviously mentioned, numbers will probably be allocated in 
chronological sequence. However a sorting routine is included to allow 
for any anomalies. 


There are many different methods of sorting information into sequence 
and such methods are easily found in computing textbooks. The 
following routine uses a simple exchange sort: 


For pointer q from 1 top: 
| по. of record а > no. of record а + 1 then swop record а and 
а+ 1 


The routine uses characters 85 to 87 of record R$, the membership 
number: if sequencing is required on name or another attribute this 
specification may easily be changed. 


1000 CLS 
1002 PRINT AT 20,0 ;" SORTING ..." 
1006 FOR P=N—1 TO 1 STEP-1 
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1019 FORQ=1TOP 

1020 IF R$(O,85 ТО 87)<=R$(Q+1,85 TO 87) THEN GO 
TO 1060 

1030 LET W$=R$(Q) 

1040 LET R$(Q)=R$(O+1) 

1050 LET R$(O+1)=W$ 

1060 МЕХТО 

1070 | NEXT P 

1080 = PRINT AT 20,0;“SORTbCOMPLETED” 

1090 PAUSE 250 

1100 РОКЕ 16437,255 

1110 | GO TO 50 


RECORD DELETION: 


ІТ someone leaves the Betelgeuse Breakers Club then their record must 
be deleted from file. To do this the user selects this option and specifies 
the sequence number of the record to be removed. 


1500 CLS 
1505 PRINT АТ 20,0;"ENTERbNO.bOFbRECORDbFORb 
DELETION" 


1510 INPUT X$ 

1520 GO SUB 9300 

1522 IF NOT OK THEN GO TO 1510 
1524 LET D-VN 

1530 PRINT AT 21,0;"DELETING ..." 
1540 FOR I-D TO N-1 

1550 LET RS(I)-RS(I*1) 


1560 — NEXT I 

1570 LET N-N-1 

1590 CLS 

1590 PRINT AT 19,9;" RECORDb" D;"bHASbBEENb 
DELETED” 

1600 PRINT АТ 20,0;"PRESSbNEWLINEbFORbMOREb 
DELETIONS” 


1610 PRINT АТ 21,6; ОВ M FOR MENU" 
1620 INPUT Z$ 

1630 IF Z$-"b'" THEN GO TO 1500 

1640 ІР Z$-"M" THEN GO ТО 50 

1650 GOTO 1620 
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RECORD RETRIEVAL 


One of the requirements of the Breakers Club Secretary was to retrieve 
a record by name, membership number or handle. This is how it is done: 


2500 
2510 


2520 
2530 
2540 
2550 


2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 


2680 
2690 
2700 
2710 
4715 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 


2820 


CLS 

PRINT АТ 10,0;'SPECIFYbONEbOFbTHEb 
FOLLOWING:" 

PRINT AT 12,0;"NAME:" 

PRINT "MEMBERSHIPbNO:" 

PRINT "HANDLE:" 

PRINT АТ 20,0;'ENTERDVALUEbORbNEWLINEb 
FORbEACH" 

INPUT N$ 

PRINT AT 12,5;N$ 

INPUT M$ 

PRINT AT 13,14;M$ 

INPUT H$ 

PRINT АТ 14,7;Н% 

IF N$(1)-"b"THEN LET N$(1)-"*" -.Ҙ 

IF M$(1)=""b" THEN LET M$(1)-"*" ° 

IF Н$(1)= b" THEN LET H$(1)-"*" 

PRINT АТ 20,0;" SEARCHINGbbbbbbbbbbbbbbbbbbbbbb"' 
FOR 1=1 TON 

IF RS(I, 1 TO 15)=N$ OR R$(1,85 TO 87)=М$ OR 
R$(1,88 TO 102)-H$ THEN GO TO 2715 

NEXT I 

CLS 

PRINT АТ 10,5/"NObRECORDbFOUND" 

GO TO 2810 

CES 

PRINT ТАВ 10; КЕСОВОБМО.Ь“ 1 

PRINT АТ 2,0;R$(I,1 TO 15) 

PRINT R$(I,16 TO 45) 

PRINT В$(1,46 ТО 65) 

PRINT R$(1,66 ТО 73) 

PRINT R$(1,74 TO 83) 

PRINT R$(1,84) 

PRINT В$(1,85 TO 87) 

PRINT Н%(1,88 TO 102) 

PRINT АТ 20,0;"PRESSbNEWLINEbFORbANOTHERb 
RECORD” 

PRINT АТ 21,6;’ORbMbFORbDMENU” 
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2830 INPUT 25 

2840 ІР Z$-"b'" THEN GO ТО 2500 
2850 IF Z$-"M" THEN GO TO 50 
2860 СОТО 2830 


Notice that it is helpful to the user to display a message to show that the 
2Х81 is busy doing something, e.g. SEARCHING at line 2650. 


FILE LISTING: 


This section shows how to implement a full or selective file listing. In 
the listing, only members' names and handles are displayed. 


Options are: 


(i) full listing 

(ii) listing of members with a given interest 

(iii) listing of members with membership numbers above a 
certain figure 


3000 CLS 

3010 PRINT TAB 10;"LISTbRECORDS" 

3020 PRINT AT 20,0;/DObYOUbWANTbADbFULLbLISTb 
(Ү/М)?” 

3030 INPUT Z$ 

3040 IF Z$-"Y' THEN GO TO 3065 

3050 IF Z$-"N" THEN GO TO 3120 

3060 | GO TO 3030 


pU А 


3065 CLS : : - 
3070  FORI-1TON | BN: 
ЖӘН SCROLL. — O >= \ 
3090 PRINT AT 15,0;8$(1,1 ТО 15); :7:В6(1,88 TO 102) 
3100 МЕХТІ 


3110 GOTO 3350 | 
м 3120 PRINT АТ 20,0;“5Е 1 ЕСТЬВУЬИУТЕВЕЗТЬО ВО. 

NUMBER?b” 

3130 INPUT 25 

3140 IF 25-“1“ THEN GO TO 3170 

3150 IF Z$-"N" THEN GO TO 3260 

3160 GO TO 3130 

3170 PRINT AT 2,10;"INTERESTS" 

3180  FORI-1TO9 
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3190 
3200 
3210 


3220 
3230 
3240 
3245 
3250 
3260 


3270 
3280 
3290 
3295 
3300 
3310 
3320 


3330 
9335 


3340 
3350 
3360 
3370 
3380 


PRINT 1:.6";1%(1) 
МЕХТ | 
PRINT АТ 20,0:“ENTERbINTERESTbCODEb 
NUMBERb(1—9)" 
INPUT CS 
GO SUB 9100 
IF NOT OK THEN GO TO 3220 
LET М6-999” 
GO TO 3300 
PRINT АТ 20/0)” LISTDMEMBERSbWITHbNUMBERSb 
»?bbb'' 
INPUT M$ 
GO SUB 9200 
IF NOT OK THEN GO TO 3270 
LET C$-"*" 
CLS 
FOR 1=1 ТО № 
IF R$(1,84)<>C$ AND В$(1,85 ТО 87) 
<=M$ THEN GO TO 3340 - 
SCROLL \ 
PRINT AT 15,0:85(1,1 TO 15);^:"'; 
В%(1,88 TO 102) a 
NEXT | - 
PRINT АТ 20 ,0-"РВЕЗЗЬМЕМИ 1МЕЬЕОВЬМЕМО” 
PAUSE 5000 
POKE 16437,255 
GO TO 50 
Summary 


When the above routines have been entered, records can be added and 
the system used. Once data has been entered, it is vital that the system 
is always started by GO TO 50, since RUN automatically clears data. 
Always SAVE the system on cassette whenever any file additions or 
modifications have been made. 


Although your own file processing application may not be identical to 
the Betelgeuse Breakers Club system, the same principles apply and 
many of the routines in this chapter may be used directly. 
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CHAPTER THREE — EDUCATION 


3.1 THE ZX81 AS AN EDUCATIONAL TOOL 


Introduction 


At the time of writing Sinclair Research is operating a special offer to UK 
schools whereby a complete 16K ZX81 system with printer can be 
obtained at half-price. The offer came about in response to a Govern- 
ment-funded scheme to install a microcomputer in every secondary 
school, by providing a 5096 subsidy for the purchase of either an Acorn 
Atom or a Research Machines 3807. 


Even with^ut such a scheme for the Sinclair Z X80 this microcomputer 
found a place in many educational institutions. Certainly the ZX81 will 
prove even more popular. School students themselves will start to find 
that it is within their budgets, or rather their parents. The ZX81 has 
many facilities that could make it a useful educational resource, but the 
key facility in education is of course suitable software. In this chapter 
we consider various types of educational computing and the design of 
software to be used in the primary and secondary sectors. 


Computer Studies 


Many secondary schools use microcomputers largely for examination 
subjects such as CSE or GCE 'O' level Computer Studies or GCE 'A' 
level Computer Science. These subjects generally require students to 
carry out substantial programming with a number of documented 
programs being submitted as part of the course assessment. 


Most schools equipped with microcomputers allow and encourage 
students to get involved with programming. Even many primary 
schools in the author's region are encouraging children to develop their 
own programs with assistance from teaching staff. 


In order for a microcomputer to be suitable for the learning of computer 
programming by a range of school students and also for more compli- 
cated project work for external assessment, the machine must be very 
flexible. The ZX81 scores well in this area and has a number of facilities 
that make program entry and development much easier than on many 


66 


similar micros. In particular the entry of keywords by single key de- 
pressions and the automatic syntax checking of lines has been found to 
aid beginners considerably. The ZX81's line editing capability is also 
unusually sophisticated for a machine of its size. 


For more advanced programming the ZX81 has many powerful number- 
handling and text-handling facilities permitting a range of applications 
programs to 5e developed. Obviously the addition of 16K memory 
extensions are vital for any degree of sophistication, but with this a great 
deal of potential is available. Finally, the addition of a printer at around 
£50 (projected at the time of writing) makes the system suitable for 
project work where hard copy is vital : in fact the cheapness of the 
printer is a considerable advantage over other systems. 


On the negative side, ZX81 report codes are clumsy in program 
development. It is a nuisance having to look up the meaning of codes 
in order to find out why a program is going wrong. The tiny keyboard 
with its multifunction keys, while being a novelty and definite aid for 
those not familiar with keyboards, is a considerable disadvantage when 
entering long and complicated programs. 


General Subjects 


Increasingly schools are buying computers for use as educational aids 
in general subjects, rather than in computer studies. This seems to be a 
more realistic and sensible approach for many secondary students since 
itis much easier to recognise the value of computer technology if a 
student is already aware of actual problems which he later discovers a 
computer can help to solve. Similarly for primary schoolchildren a 
background in using micros as 100/5 similar to cassette recorders or 
projectors enables them to encounter computers in their later educa- 
tional or working lives without having inbuilt prejudices against the 
technology involved. 


In this area therefore we are analysing the validity of the ZX81 asa 
black-box (!) providing educational facilities. Obviously a crucial aspect 
here is the quality and relevance of the software used, and since the best 
educational software is written by subject teachers rather than by com- 
puter people, this chapter aims to aid the reader in producing good soft- 
ware. However we can make some general comments about ZX81 
BASIC and its relevance in this area of use. Presentation of information 
is very important in many subjects, and the graphics features of the 
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ZX81 are helpful although of limited resolution; similarly the SLOW 
compute and display facility is very useful in displaying active processes 
on the ZX81 screen. The inverse character displays available are also 
good but it could be argued that the provision of lower case characters 
would have been more helpful: it is a considerable disadvantage at the 
primary level or in any language work to have to use upper case char- 
acters only. 


Being able to interact with computer programs in realtime, using INKEY$ 
can be an advantage in the educational area, and exercises in coordination 
can easily be designed using a limited number of keys. In fact the touch- 
sensitive keyboard can easily be partitioned off by overlays, with the 
active keys being labelled with special symbols according to the application 
currently in use. 


Categories of Educational Programs 


Before embarking upon the study of specific programs let us consider 
what general categories of programs can be used in the primary and 
secondary spheres to aid the teaching of non-computing subjects: this 
chapter does not seek to develop programs for Computer Studies, or for 
use in educational administration (see Chapter Two for ideas on this). 


Demonstration or simulation programs are those with little student 
involvement, either run by a teacher or without any more inputs. Such 
programs are of limited value but can be used to demonstrate the facilities 
of a machine to an introductory group or at a more advanced level to 
demonstrate some process that is difficult to explain or model otherwise, 
eg: a dangerous chemical experiment might be shown by the reagents and 
products being displayed on the screen. 


Programmed learning programs depend upon a program taking on to a 
small extent the role of a teacher: typically a program might contain 
teaching material on a topic and the student would respond to certain 
questions posed by the program. His response would determine the 

next block of material displayed by the program. Since these programs 
often require the storage of a great deal of textual material to be effective, 
the value of such programs оп the 2Х81 is limited. 


Test or quiz programs are a simpler variant of the previous category. 
Here a bank of questions is held in a program and the student is given 
each question in turn (or perhaps randomly from a large section of 
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questions) and has to reply by entering his answer оп the keyboard. 
The computer then responds by assessing his answer as right or 
wrong, and if the latter a hint or further help may be given. At the 
end a score appears. If the quiz is substantial the program may be 
written so that the student may stop in the middle, SAVE everything 
on cassette and restart from where he left off at a later time: the 
2Х81 is one of the few microcomputers which makes this very easy. 


Modelling programs simulate a real-life process so that the user can be 
involved in the process without the accompanying problems or equip- 
ment. For example a complete list of chemical compounds with their 
reactions to certain tests can be held on file and the student can then 
be presented by the program with an unnamed compound and can 
perform a series of tests on it until he can finally determine what it is — 
all without getting his white coat dirty. 


Games programs often have sound educational value, and many programs 
at primary level can be written as games to achieve their goals. Even 
quite stuffy programs such as maths quizzes can be written with a game- 
like flavour eg: a game of snakes and ladders in which the player has to 
get a sum right before he can throw dice. 


A selection of different types of programs appears in the remainder of 
the chapter. Many 'standard' educational programs can be picked up 
easily from text books, magazines or groups such as MUSE, and it is not 
the author's intention to re-reproduce such material. Instead programs 
have been chosen which particularly use the educational facilities of 

the ZX81. 
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3.2 EDUCATIONAL PROGRAMS 


MATHS STEPPING STONES (16K) 
Background 


The first program in this section has been chosen to illustrate how an 
essentially simple and boring maths testing program can be made inter- 
esting and dynamic using realtime graphics. 


Here is the simple and boring version: 


10 LET S-0 

20 FOR I-1 TO 10 

30 LET A=2+INT(RND*8) 

40 LET B=2+INT(RND*8) 

50 LET C-A*B 

60 PRINT AT 1,0;1;TAB 2;")b' ;A;"bXb?b-b" C;"b" 
70 INPUTG 

80 IF G-B THEN GO TO 110 

90 PRINT AT I,15;"NO.bDANSWERDbISb'';B 
100 GO TO 120 
110 PRINT AT 1,15;“CORRECT” (inverse) 
115 LEES=S+1 
120 PRINT AT 1,8;В 
130 NEXT! 
140 PRINT 
150 PRINT "YOUbGOTb" S;"bRIGHTbOUTbOFb10Q" 


There are 10 questions of the type 4 x ? = 32 and the data names used 
are 


= number of questions answered correctly 
= question number 


q 
) 
) the question posed in the form A X В = C 
) 


5 
| 

А 
B 
C 
G - user's attempt 

There is nothing novel about this type of program and personal computer 
magazines and books are full of such things. Let us now consider a 


program which aims to test exactly the same principles but which does 
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itin a much more attractive way. 


Description 


The player is on one side of a river and a treasure chest is on the other 
side. The chest contains magic gold coins which as time goes on are 
turning into frogs: the longer the player takes to cross the river the more 
frogs and less gold coins. The player crosses the river by means of five 
stepping stones, but to reach each stepping stone he has to answer a 
maths question. If the player has not crossed the river after twenty 
questions the stones disappear and the player falls into the river. This 
also happens if all the coins have turned into frogs. 


Method 


(i) Initialise score S to zero and coins CO to 100 
(ii) Draw river scene on screen 
(iii) For | from 1 to 20 
a) choose A at random between 2 and 9 
b) choose B at random between 2 and 9 
c) Evaluate C as A times B 
d) Display | and question as A x ? = C 
e) If а key has been pressed: 
1) If key = value of B then 
(a) Display message 
(b Ада 1105 
(c) 115 = 6 display message and stop 
(d) Move man 
(e) Go to (3) below 
2) Display message 
3) Pause 
4) Repeat to (iii) 
f) Subtract 1 from CO and display CO. 
с) Со to (e) if no key pressed above. 
h) If CO is zero, go to (iv) below. 
i) Repeat to (ili) 
(iv) Display message and stop. 
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Screen Format 


"2 с с каш 
r. 


| о Г... ИА EEA a SEZA mE 





Question and message line Hn 


e چ‎ E ыс, a ag 11 а EE UV UE 


Program Listing (16K) 


10 LET S=@ 

20 LET СО< 100 

30 PRINT AT 3,3; . BARA. ЕЕЕ. БЕЗЕ. AAA. SENE 

СӨ 

40 PRINT АТ 2,29: ШШ 

50 PRINT AT 429; EE 

60 LET X=0 

70 GO SUB 500 

80 FOR 1=1 TO 20 

90 LET A=2+INT(RND*8) 
100 LET B=2+INT(RND*8) 
110 LET C-A*B 
120 PRINT AT 5,0; TAB 2;")b';A;"bxb?b-"';C; 
125 IF C« 10 THEN PRINT "pb" 
130 PRINT АТ 5,15;"bbbbbbbbbbbbbbb" 
140 LET К$ = INKEYS 
150 IF К%-““ТНЕМ GO ТО 310 
155 PRINT АТ 5,8;B 
160 IF CODE К$—28<>В THEN GO TO 280 
170 PRINT АТ 5,15;"CORRECT" 
180 LET S=S+1 
190 IF S<>6 THEN GO TO 220 
200 PRINT АТ 6,0;" YOUbGOTb"';CO;"bGOLDbCOINSb-*b"':100—CO; 

"bFROGS" 

210 STOP 
220 LET X=5*S 
230 FOR J-0 TO2 


240 PRINT AT J,X—5;"bbb" 

250 NEXT J 

260 GO SUB 500 

270 GO TO 290 

280 PRINT АТ 5,15;""NO.bANSWERbISb’’;B 
300 PAUSE 300 

310 LET CO-CO- 1 

315 IF CO=@ THEN GO TO 340 

320 PRINT AT 3,29;"b'';CO 

325 IF CO« 10 THEN PRINT "b" 

326 IF K$="""THEN GO ТО 140 

330 NEXT I 

SO PRINT ATIA анаа 5 

350 PRINT AT 6,0;"HARDbLUCKb—bYOUbWILLbGETbWET"' 
360 STOP 

500 PRINT AT Ø,X+1;“0” 

510 PRINT AT 1, Х а, 

520 PRINT AT 2,X; "Ebi" 

530 RETURN 


List of Variables 


5 < number of stepping stone upon which man is standing 
CO < number of gold coins left 
X = column position of man 
| = number of current question 
A =) 
В =) the question posed in the form A X B=C 
Е =) 
J = loop counter 
Comments 


The child using the program need only press a single key to enter his 
answer — the use of INKEY$ removes the need for NEWLINE at the end 
of entries. 


After each attempt the correct sum stays on the screen for six seconds 
and the coin transmutation also temporarily halts. This period can be 
cut short by pressing NEWLINE if required, since this terminates the 
PAUSE. If the man reaches the chest then the game ends with a 
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message showing how many coins (and frogs!) he obtains. 


To make the program easy to use a number of PRINT statements giving 
instructions on play should be included at the beginning of the listing. 


Exercise 3(a): The theme of the program — crossing a river to 
a Treasure Chest — could be used in many different tasks other than a 
maths quiz, or at varying levels of difficulty. Modify the program to 
apply to a subject area of your choice. 


SPELLING BIG WORDS (16K) 
Description 


This program is a spelling test which works by means of a word being 
displayed with a missing letter and the child has to enter the letter within 
a time limit. The word is displayed as four times normal size using 

direct access to the monitor character table. Words are entered by the 
teacher in a separate part of the program with the letter to be omitted 
being entered as an inverse character. N.B. Words up to 8 letters. 


Method 


Teacher: (i) For I from 1 to 10 
Enter word number I 
(ii) Stop 


Child: (i) Set score S to 0 
(ii) For! from 1 to 10 
a) Display word 1, large with letter omitted 
b) Set counter to 20 
c) Display counter 
d) If по key pressed 
1) Decrement counter 
2) Display counter 
3) If counter = 0, display message & go to 
(9) 
4) Go to (d) above 
е) If key pressed is correct 
1) Add 1 to S 
2) Display message 
3) Go to (g) 


74 


(iii) 


f) Display message and show correct letter 
g) Pause 
Display score S and stop 


Screen Format 


Line O 
Lines | 
2—5 


Line 7 


TIME: 18 


` CUPBO RD 


Message Line 





Program Listing (16K) 


DIM М/%(10,8) 

PRINT TAB 7;'TEACHERSbSECTION'’’ 
PRINT "ENTERbWORDSbWITHbLETTERbTODbBE" 
PRINT “OMITTEDbINbINVERSEbFORM"” 
FOR 1=1 TO 10 

PRINT АТ ІЗ5,5БМОВО”ААВ 12;-“; 
INPUT W$(1) 

PRINT WS(I) 

NEXT | 

STOP 

LET S-0 

FOR 1=1 TO 10 

CLS 

FAST 

PRINT AT 0,0;1 

РОВ К-Т TO8 

LET C=CODE W§(I,K) 

IF C<128 THEN GO TO 280 

LET M$=CHR$(C—128) 

LET C=@ 

РОВ L=@ TO 7 

LET P=PEEK(7680+C*8+L) 

LET V=t20 
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310 FOR J =ø ТО 7 

320 IF P<V THEN GO ТО 350 

330 PLOT 8*(K—1)+J,39—L 

340 LET P=P—V 

350 LET V=V/2 

360 NEXT J 

370 NEXT L 

380 NEXT K 

390 SLOW 

400 LET X-20 

410 PRINT AT 0,13;/“ТІМЕ:20” 
420 LET K$=INKEY$ 

430 IF K$«»"""THEN GO TO 490 
440 LET Х=Х-1 

450 PRINT AT 0,18;X;"b" 

460 IF X«»0 THEN GO ТО 420 
470 PRINT AT 7,0;"TOObSLOW" 
480 GO TO 540 

490 IF K$<>M$ THEN GO TO 530 
500 LET S=S+1 

510 PRINT AT 7,0;"CORRECT." 
520 GO TO 540 

530 PRINT АТ 7,0;“WRONG.” 

540 PRINT АТ 7,10;"IT bWASb' WS(I) 
550 PAUSE 300 

560 POKE 16437,255 

570 NEXT | 

580 CLS 

590 PRINT АТ 7,5;"YOUbSCOREDb''S;"bOUTbOFb10' 


List of Variables 


= 
«а 


array holding ten eight-character words 
number of word currently considered 
score out of ten 

letter of current word 

code of letter in word 

missing letter in word 

loop counter 

value of location in character table 

a power of two used to access bits in P 


кзггтхожос 
tA 
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J 


loop counter 


X = time counter 
K$ - key pressed by player 
Comments 


The large display of the word being tested helps to give the program con- 
siderable visual impact and the single key entry of answers is also useful. 
The quiz proper is started by GOTO 210. 


There is a delay while the ZX81 sets up the large word on the screen and 
this takes place with a blank screen (uses FAST mode) in order that the 
player only has a given time limit to choose his answer: he does not see 
the word gradually appearing on the display. The routine is explained 
on page 102. Display of large characters is applicable to many areas of 
language teaching. 


Exercise 3(b): Write statements to ensure that only valid entries 
are permitted in the teacher's section. 


SPOTS BEFORE THE EYES (1K) 


Description 


Here is a ZX81 version of a program which first appeared in ‘The 2Х80 
Companion' under the title of PATTERN RECOGNITION. The idea 
behind the program is based upon Glenn Doman's book ‘Teach Your 
Baby Maths', in which it is suggested that children can be taught to 
recognise quite large numbers of dots (up to one hundred) with sufficient 
practice. The program makes use of the PAUSE instruction to display 

a collection of spots for a very short time before the user enters the 
number. There are ten goes and a score is given at the end. The program 
runs on a 1K ZX81. 


Method 


(i) Set scores S, T and U to zero 

(ii) For go number G from 1 to 10 
a) Choose R at random between 20 and 100 
b) Display В spots for 2 seconds 
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(iii) 


c) Enter user's attempt N 
d) IfN-R (1) display "CORRECT" 
(2) add 1 to S 
(3) go to (h) below 
e) If |N—R| <5,(1) add 1 to T 
(2) go to (g) below 
f) If [N-R| «10, add 1 to U 
а) Display “INCORRECT” and value of В 
h) Wait for five seconds 
Display scores. 


Program Listing (1K) 
10 LET S=@ 
20 LET T=0 
30 LET U-0 
40 FOR G=1 TO 10 
50 LET R=20+ INT(RND*81) 
60 FAST 
70 FORI=1TOR 
80 PRINT "FE J''; 
85 IF RND<@.5 THEN PRINT “b”; 
90 МЕХТІ 
100 PAUSE 100 
105 РОКЕ 16437,255 
110 СЕБ 
120 SLOW 
130 PRINT “HOWbMANY ?b”; 
140 INPUTN 
145 PRINT N 
150 IF N<>R THEN GO TO 190 
160 PRINT "YES" (inverse) 
170 LET S=S+1 
180 GOTO 250 
190 IF ABS(N—R)>5 THEN GO ТО 220 
200 LET T=T+1 
210 GOTO 240 
220 IF ABS(N—R)» 10 THEN GO TO 240 
230 LET U=U+1 
240 PRINT "NO,b';R 
250 PAUSE 250 
255 РОКЕ 16437,255 
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260  CLS 

270 NEXTG 

280 PRINT "SCORE:bb";S;"bCORRECT,b" T;"bWITHINDS, 
bb'5U;"bWITHINb109" 


List of Variables 


- score correct 

- score within 5 

= . score within 10 
go number, 1--10 
= number of spots 
= loop counter 

= user’s attempt 


ee Aw 
| 


Comments 


Note that the addition of line 85 ensures that the spots appear in a 
random pattern — without it the user can use the length of the pattern 
to estimate the number. The score given at the end in three parts 
(correct, within 5 and within 10) gives the user a clear idea of his 
performance. 


The program would run perfectly well in FAST Mode, but the listing 
above reverts to SLOW mode for the input section as a matter of the 
author's preference! The display of the spots must be in FAST mode 
so that the two second display of the spots is effective. 


Exercise 3(c): Why is the ABS function included in lines 190 
and 220 and what would happen if it was omitted? 


GRAB THE GRUNGER (16K) 
Description 


No discussion of primary level educational programs is complete with- 
out looking at grid games, of the HUNT THE HURKLE variety. In such 
programs a grid is displayed on the screen and an object (an imaginary 
creature such as a Hurkle, or in this case a GRUNGER) is chosen to be 
at a random position in the grid. The player then has a number of 
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guesses to find the object and in some variations the object may move ог 
even try and find the player. The educational value lies in that the player 
has to specify grid positions by means of standard X and Y axis co-ordin- 
ates, and the program gives the player hints by means of specifying the 
direction in which to move to find the object. 


The following program uses a 15 x 15 grid in which the dreaded Grunger 
is hiding. The player has five tries to find it and after each attempt the 
program tells the player in which direction to proceed, e.g. SOUTH- 
EAST. The game ends and repeats when the player finds the Grunger 

or when he runs out of guesses. 


Method 
(i) Display instructions and grid with labelled axis 
(ii) Choose random position of Grunger as (A,B) 
(iii) For go number | from 1 to 5 


(a) Enter user's version of position, (X,Y) 
(b) If (X,Y) = (А,В) 
(1) Display CORRECT 
(2) Go to (v) below 
(c) Display direction to move 
(iv) Show Grunger's position 
(v) Wait 
(vi) Go to (i) 


Screen Format 


GO NE 
YOU HAVE 4 TRIES TO FIND HIM 


Lae GATE GLE TOIT 12 13 14 15 


9 
8 
7 
6 
5 
4 
3 
2 
1 
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Program Listing 


10 


250 


260 
270 
280 
290 
500 
510 
520 
530 
540 
550 


PRINT TAB 5;"AbGRUNGERDbISbHIDINGDbIN", TAB 8;"Ab 
15bXb15 GRID'',""YOUbHAVEbBDbTRIESbTObFINDDbHIM'" 
FOR | = 15 TO 1 STEP -1 

PRINT TAB 6;1;TAB 9;" 6944 

NEXT I 

PRINT TAB 9;*123456789111111bX" 

PRINT TAB 18; "012345" 

PRINT AT 10, 1; "Y" 

LET А = INT (RND*15) + 1 

LET B = INT (RND*15) + 1 

РОК! |! + 1Т05 

PRINT AT 2,9;6—1 

PAUSE 507 

POKE 16437,255 





PRINT АТ 21,0;""bbbbbbbbbbbbbbbbbbbb" 
PRINT AT 21,0;L;")bX-'5; 

INPUT X 

IF X<1 OR X» 15 THEN GO TO 160 
PRINT X;",Y="; 

INPUT Y 

IF Y<1 OR У> 15 THEN GO ТО 190 
PRINT Y 

PRINT AT 15—Y+3, X+8;l 


IF X-A AND У-В THEN СО TO 500 

PRINT АТ 0,5;"bbbbbbbbbbbbbbbbbbbbb"', TAB 8; 
"bbbbbbbbbbbbbb" 

PRINT АТ 0,13;"GOb"; CHR$ (51*(Y<B) + 56*(Ү>В)); 
CHR$(42* (X« A) + 60* (Х>А)) 

NEXT I 

PRINT АТ Q7;"SORRYb-bITbWASDb'',A;'", B 

PRINT AT 15-В + ЗА + 8; “G” 

GO TO 510 

PRINT AT @,12; "CORRECT" 

PRINT АТ 2,0;"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" 
PAUSE 9000 

POKE 16437,255 

CLS 

RUN 
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List of Variables 


A x position of Grunger 

B - yposition of Grunger 

X = user's guess, x position 

Y = user's guess, y position 

| = loop counter and go number 
Comments 


Notice how the number of tries left is shown at the top of the 
screen, as part of the original playing instructions. To modify the 
program for 1K, omit the display of the grid, i.e. lines 20—70, 220,280 
and modify lines 140 and 150 to use screen line 4 instead of line 21. 


Exercise 3 (d): What size grid can be designed for a 1K ZX81 to 
include a grid display? 


COPYCAT (1K) 
Description 


Here is a straight forward memory test. A sequence of letters is dis- 
played, one letter at a time, on the ZX81 screen and the player has to 
repeat the sequence afterwards. The sequence starts at three letters but 
goes up to twenty! Letters are displayed eight times normal size for 
clarity, using a PRINT AT version of the routine used in BIG WORDS 

on page 74. At the end the player is given a mark showing the 

maximum number of letters he has copied correctly. The program works 
on a 1K 7Х81. 


Method 


(i) Generate 20 random letters in A$ 
(ii) For no. of letters | from 3 to 20 
(a) For letter number J from 1 to I 
1) Display letter J of A$, large 
2) Wait for two seconds 
3) Clear screen 
(b) Enter user's version of sequence, X$ 
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(c) If correct 
1) Display "RIGHT SO FAR...” 
2) Wait for five seconds 
(d) If incorrect display message, correct sequence and score 
(1—1) 
(iii) Display "CONGRATULATIONS" 


Program Listing (1K) 


10 DIM А$(20) 

20 FOR 1=1 TO 20 

30 LET A$(I)=CHR$(INT(RND*27)+38) 
40 NEXT I 

50 FOR |=3 TO 20 

55 CLS 

60 FOR J=1 ТО I 

70 LET C-CODE(AS$(J)) 

80 FOR H=@ TO 7 

90 LET Р=РЕЕК(7680+С*8+Н) 
100 LET V=128 

110 FOR G=@TO 7 

120 IF P<V THEN GO ТО 150 
130 PRINT АТ H,G; W” 

140 LET P=P—V 

150 LET V=V/2 

160 NEXT G 

170 NEXT H 

180 PAUSE 100 

186 РОКЕ 16437,255 

190 CLS 
200 NEXT J 
210 PRINT "ЗЕОЧЕМСЕ=”; 
220 INPUT X$ 
225 PRINT X$ 
230 IF Х%<>А%(1 TO I) THEN GO TO 300 
240 PRINT "RIGHT SO ЕАК...” (inverse) 
250 PAUSE 250 
260 POKE 16437,255 
270 NEXT I 
280 PRINT "CONGRATULATIONS" (inverse) 
290 STOP 

300 PRINT "NOb—b';AS(1 TO I);".bYOUbGOTb"';I—1 
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List of Variables 


A$ = array holding 20 character sequence 

| = loop counter and count showing length of current 
sequence 

J = counter showing character in current sequence 

H = counter indicating appropriate number of byte in 
character table 


P = value of byte in character table 

V = a power of 2 

С = counter showing current bit being tested 

X$ = player's version of sequence 

С = character code of current character 
Comments 


By changing the randomising instruction at line 30 the program can 
easily be modified to handle sequences of numbers, or even graphics 
symbols. 


Exercise 3(e): Change line 30 to produce sequences of digits 
@ to 9 rather than letters. 


PICKING PAIRS (16K) 


Description 


A useful exercise of memory whether by a child or an adult is the card 
game of Concentration, in which a number of cards are shuffled and laid 
out singly face down. The player then has to choose a pair of cards, 

look at them, and if they are a pair of the same type (e.g. Aces, Threes) 
they are left face up. Otherwise they are turned face down again and 
another pair chosen. This continues until all the cards are face up. 
Clearly the player has to try and remember the positions of cards that he 
has seen. 


This program works on the same basis, using a grid sized 8 x 8 filled with 
eight sets of the letters A to H. The player chooses a pair by specifying 
a pair of column (X) and row (Y) positions. If an identical pair is found 
the letters stay on the screen, whereas if the letters chosen are different 
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they disappear after ten seconds. Running totals of choices and pairs are 
displayed on the screen. Entry of positions is done by single Key 
depressions, NEWLINE not being needed (i.e. INKE YS is used) and there 
is built-in error checking. 


Screen Format 














line 0 > 
line 2 > 
CHOICES - 0 Зета 
PAIRS = 0 f b 
#-19 
SQUARE 1 4251 
SQUARE 2 ET 
line 16 
line 18 > 





Program Listing 


5 DIM B(4) 

10 DIM AS(8,8) 

15 PRINT “SETTINGbUP”; 

20 FOR 1=1 ТО 8 

30 LET AS(I)-"ABCDEFGH" 

40 NEXT I 

45 FOR I=1 TO 100 

47 IF I2 10* INT(I/10) THEN PRINT " **; 
50 FOR J=1 TO 4 

55 LET B(J)-INT(RND*8)*1 

60 NEXT J 

65 LET X$-AS(B(1),B(2)) 

70 LET A$(B(1),B(2))=A$(B(3),B(4)) 
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LET A$(B(3),B(4))=X$ 

NEXT I 

CLS 

PRINT 

FOR 1=1 ТО 8 

PRINT ‘bs EH ИИИИЙ ШИН И IR ШИ И ИЙ ER ER ШЕ EE а’ 
PRINT “b Bb E b аьа 

NEXT | 

PRINT “DE a aaa ИИЙ ШЙ И ИЙ ИЙ И А И а’ 
PRINT АТ 18,2; 1b2b3b4b5b6b7b8" 

PRINT AT 0,2; 1b2b3b4b5b6b7b8" 

FOR L-2 ТО 16 STEP 2 


PRINT AT L,0;9—L/2;TAB 18; 9-1/2 
NEXT L 

LET P=0 

LET O-0 

PRINT АТ 3,21;"CHOICES = 0” 


PRINT АТ 5,22;"PAIRS-0" 

PRINT АТ 19,29;"XbY"'' 

PRINT AT 11,20; SQUARE 1" 
PRINT AT 13,20;"SQUARE 2” 
PRINT AT 13,29; bbb" 

PRINT АТ 11,29;"bbb" 

LET L=11 

LET C=29 

GO SUB 600 

LET X1=K 

LET С-31 

GO SUB 600 

LET Y 12K 

IF CODE (AS(X1,Y1))» 128 THEN GO ТО 230 
LET L=13 

LET C-29 

GO SUB 600 

LET Х2-К 

LET C=31 

GO SUB 600 

LET Y2=K 

IF CODE (A$(X2,Y2))» 128 THEN GO ТО 230 
PRINT АТ 18—2*Y1,2* X1;AS(X1,Y1) 
PRINT АТ 18—2*Y2,2* X2;A$( X2,Y2) 
LET O=O+1 
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420 PRINT АТ 3,29:0 

430 IF AS(X1,Y1)-AS(X2,Y2) THEN GO TO 480 
440- PAUSE 500 

450 PRINT AT 18—2*Y1,2*X1;"b" 

460 PRINT AT 18-2*Y2,2*X2;"b" 

470 GO TO 230 

480 LET Р-Р+1 

490 PRINT AT 5,28;P 

500 LET AS(X1,Y 1)=CHR$(CODE(A$(X1,Y1))+128 ) 
510 LET A$(X2,Y2)=CHR$(CODE(A$(X2,Y2))+128 ) 
520 IF P<>32 THEN GO TO 230 

530 PRINT АТ 15,22;"WELLbC ONE" (inverse) 
540 PRINT AT 2,29; "mimm" 

550 PRINT AT 4,29; щщ’, 

560 STOP 

600 PRINT AT L,C;"?" (inverse) 

610 LET К$ = INKEYS 

620 IF K$«-''8'" AND K$»-"1" THEN GO TO 650 
630 PRINT АТ L,C;?" 

640 GO TO 600 

650 LET K=VAL K$ 

660 PRINT AT L,C;K 

670 RETURN 


List of Variables 


array of four random numbers used to shuffle AS 
8 x 8 array of characters 

loop counter 

loop counter 

line number counter 

column number counter 

no. of identical pairs chosen 

no. of choices made 

= coordinates of first member of pair 
coordinates of second member of pair 
value of key pressed 

entry of x or y position 


£a 
H H 


- 


им > 
пики 


ACXXOUWOr-t*0w0 
к = 
1 


Comments 
The program demonstrates several interesting features. The subroutines 
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at line 600 shows how an input prompt may be highlighted by a 
‘blinking’ question mark and then accepted without NEWLINE, i.e. 
using INKEY$. 


The eight sets of eight letters are initially put into A$ in sequence and 
then shuffled using one hundred random exchanges. 


Exercise 3(f): How can you crash the program while it is waiting 
for an x or y input? Modify the program to overcome this. 


PRIMES (1K) 


Background 


Having considered a number of primary level programs we now look at 
higher things. As mentioned above, the best educational programs are 
written by subject specialists, so the author's intention with the rest of 
the chapter is to illustrate some techniques for readers to apply to their 
own areas. The topic chosen is mathematics, and the next two 
programs are demonstrations to illustrate mathematical concepts or 
techniques. An excellent reference for mathematical computer 
programs is "A Collection of Programming Problems and Techniques" 
by Maurer and Williams, published by Prentice-Hall, Inc. 


There is a slight problem when doing complex maths on the ZX81, as 
illustrated by 


PRINT 20 - 0.000000001 
which does not give 19.999999999 or even 20 but 52. Yes, there is a 


bug in the 2Х81 5 floating point arithmetic which leaps out when handling 
numbers of considerably different magnitudes. Beware! 


Description 
The following program accepts any number greater than one and cal- 


culates and prints the number's factors if any, or indicates that it is a 
prime number. 
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Method 


(i) 
(ii) 
(iii) 
(iv) 
(v) 


(vi) 
(vii) 
(viii 
(ix) 
(x) 


Enter number M 
If M less than two, stop 
Set N to M 
Set divisor D to 2 
If N isdivisible by D 
a) Display D 
b) Divide N by D 
c) Go to (v) 
Add 1 to D 
If D less than M go to (v) 
J) If N>1 display "PRIME" 
Wait 
Go to (i) 


Program Listing (1K) 


5 
10 
20 
30 
40 
50 
60 
70 
80 
85 
90 

100 
110 
120 
130 
140 
150 


List of Vari 


CLS 

PRINT "ENTERbNUMBERDb":; 
INPUTM 

IF М<2 THEN STOP 

LET N=M 

PRINT N 

LET D-2 

IF N<>D*INT(N/D) THEN GO TO 100 
PRINTED =p 

LET N=N/D 

GO TO 70 

LET DSO 

IF О<М THEN GO TO 70 

IF N>1 THEN PRINT "PRIME" 

IF N=1 THEN PRINT "AREbTHEbFACTORS" 
PAUSE 9999 

RUN 


ables 

number as input 
= number divided by factor(s) 
= divisor 
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Exercise 3(g): Modify the above program so that when calculat- 
ing whether m is prime,the highest possible factor used is 
the square root of m. 


ITERATION (1K) 


Description 


The ZX81 is an excellent tool for demonstrating simple iterative tech- 
niques for the solution of equations. The Newton Raphson method is 
used to solve an equation of the form 


f(x) =0 


by taking an initial approximation xo to the solution х= © and successively 
improving it by generating a sequence: 
Вай Xs 


which converges to the solution. 
The iterative formula is 


х = x, - Ех.) 
А (ха) 





Where f'(x) is the differential of f(x). 
We determine whether we have reached the solution by considering 
successive approximations : if two approximations xj and Xj+1 fulfill: 


|хі-хі,1|<е where e is a small constant then we are close 
enough. e is chosen by the user according to the accuracy required. 


The program accepts an equation of up to the fifth order and given an 
initial approximation, calculates a solution. 


Method 


(i) Enter order of equation N 
(ii) For counter | from N+1 to 1 
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(a) Enter coefficient A(I) (юга, in aj 4x!) 
(iii) Enter approximation XA 
(iv) Calculate array B, the differential coefficients. 
(v) Calculate and print next approximation XB using coefficients 
in A and B 
(vi) If XA—XB «0.00001 then 
(a) Display solution 
(b) Stop 
(vii) Set XA to XB 
(viii) Go to (v) 


Program Listing 


10 DIM A(6) 
30 PRINT “ORDER="; 
40 INPUTN 
50 IF М>БОВ N«1 THEN GO TO 40 
60 LET N=INT(N) 
65 PRINT N 
70 FOR 1=№+1 TO 1 STEP -1 
75 SCROLL 
80 PRINT АТ 1,0;"COEFFTbOFbX* *'':|—1;'-"; 
90 INPUT A(I) 
100 PRINT А(1) 
110 NEXT! 
120 PRINT “APPROX="; 
130 INPUT XA 
140 PRINT XA 
150 LET C-2 
180 LET F-A(1) 
190 FOR 1=2 ТО М+1 
200 LET F-F-*A(I)* XA**(1—1) 
210 NEXTI 
220 LET DF-A(2) 
230 FOR 1=2 TON 
240 LET DF-DF-*A(I*1) *1*ХА** (1-1) 
250 NEXT | 
260 LET XB-XA-F/DF 
265 SCROLL 
270 PRINT АТ 1,0;“АРРКОХЬ" ;C;"- ;ХВ 
280 LET C=C+1 
290 IF ABS(XA—XB)< 0.00001 THEN GO TO 320 
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300 LET ХА-ХВ 
310 GO TO 189 
320 PRINT "SOLUTION-";XB 


List of Variables 


A = array holding coefficients of powers of x 
e.g. f(x) = agx5 + agx4 *a4x3 + азх2 + аух + ay 
М  - order of f(x) i.e. highest power of x 
| = loop counter 
XA = ) À ; ; 
XB | successive approximations 
F- = f(x) at XA 
ЫЕ- = ер at xA 
C - number of approximations 
Comments 


The program almost fillsa 1K ZX81 and there is very little room left for 
a screen display. Therefore if using a 16K machine, extend the number 
of approximations displayed, i.e. change the PRINT AT instructions to 
use a line around 15 or so. 


Exercise 3(h): In what circumstances would line 260 terminate 
with an error? Modify the program to overcome this. 


THE QUIZ (16 K) 


Description 


At the beginning of the chapter we reviewed types of educational : 
programs. This program is a general purpose quiz in which the teacher 
can set up a bank of questions and answers on any topic (and in any 
language!) and the ZX81 then poses the questions to a student in the 
form of an interactive quiz. There are two notable points about this 
program: firstly a standard question format is entered by the teacher 


e.g. WHAT IS THE FORMULA FOR 


за 


ог TRANSLATE INTO SWAHILI 
or WHAT IS THE CAPITAL OF 


and then pairs of question and answer keywords make up the remainder; 
secondly, a student's answer is marked correct providing it contains the 
answer keyword 


e.g. if the answer keyword is OPTIC 
then all the following responses are correct 


OPTICAL ISOMERISM 
OPTIC 

OPTICALLY 
CHANGES OPTICALLY 
OPTICALLISH 


Naturally enough, this is a 16K program. 


Method 


TEACHER: (i) Enter number of questions O 

(ii) Enter maximum length L1 of question word 
and L2 of answer word. 

(iii) Enter form of question Ғ% 

(iv) For counter | from 1 to Q 
(a) Enter question word number | into 0%(1) 
(b) Enter answer word number | into А%(1) 
(c) Store length of А%(1) іп А(1) 

(v) Stop 


STUDENT: (i) Set score S to 0 
(ii) For counter | from 1 to О 

(a) Display question F$ and question word 
O$(1) 

(b) Enter student’s response X$ 

(c) If X$ contains answer word А%(1) 
1) Display CORRECT 
2) Add 1 to 5 
3) Go to (e) below 

(d) Display WRONG Ж answer word А%(1) 

(e) Repeat 
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(iii) Display score S 


Program Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
122 
124 
126 
130 
140 
150 
160 
165 
170 
180 
182 
185 
190 
200 
210 
220 
230 
231 
232 
233 
234 
240 
270 
280 
290 
300 


PRINT "NO.bOFbQUESTIONS" 
INPUT Q 

IF О<5 OR Q >50 THEN СО TO 20 
PRINT O 

PRINT ““MAX.bLENGTHbOFbOQbWORD=”": 
INPUT L1 

IF L1<1 ОН L1>3@ THEN СО TO 60 
PRINT L1 

PRINT TAB 15; "АБМОВО-“; 
INPUT L2 

IF L2<1 OR 12> 30 THEN GO ТО 100 
PRINT L2 

DIM О%(О,11) 

DIM AS(Q,L2) 

DIM A(Q) 

PRINT "QUESTIONbFORMAT-" 
INPUT F$ 

IF F$="""" THEN GO TO 140 

PRINT F$ 

PAUSE 250 

CLS 

FOR l=1TOQ 

SCROLL 

SCROLL 

PRINT АТ 18,0;"Q"';;"-"': 

INPUT OS(I) 

PRINT Q$(1) 

PRINT А ДЕ"; 

INPUT AS(I) 

FOR J=L2 TO 1 STEP —1 

IF A$(I,J) -» "b" THEN GO TO 234 
NEXT J 

LET A(1)2J 

PRINT AS(I) 

NEXT I 

PRINT “ENDbOFbINPUT” 

STOP 

LET S-0 


94 


310 
320 
330 
340 
350 
355 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


РОВ I*1 TO O 

GES 

РБІМТІ Ы Е$ 

PRINT О$(1) 

ІМРОТ Х% 

PRINT Х% 

IF LEN Х%<А(1) THEN СО ТО 400 
FOR J=1 TO LEN X$—A(1)*1 

IF X$(J TO J+ A() —1)=A$(1,1 TO А(1)) THEN GO TO 420 
NEXT J 

PRINT "NOb—bANSWERbISb";AS(I) 
GO TO 440 

PRINT “CORRECT” (inverse) 

LET S=S+1 

PAUSE 500 

NEXT I 

CLS 

PRINT "SCORE:b"^;S;"bOUTbOFb'';Q 


List of Variables 


Comments 


= number of questions 
- maximum length of question words 
- maximum length of answer words 
- questions 
= answers 
array holding actual lengths of answer words 
question format 
= student's answer 
score 


The teacher sets up a bank of questions and answers having started the 
program by RUN. The student uses the program by GO TO 300, and 
each of the questions appear in turn. Providing the student's response 
to a question contains the answer keyword, it is marked correct. A 
score appears at the end. 


Exercise 3(1): What is the purpose of line 360 and what would 


happen if it was omitted? 
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CHAPTER FOUR — THE MONITOR 


4.1 EXAMINING AND USING THE MONITOR 


Introduction 


This chapter aims to introduce readers to the way in which the 8K ROM 
Monitor is organised, how it may be examined and how it may be used. 
Much of the chapter is taken up by a listing of the contents of the ROM 
in terms of tables of data and assembly language instructions. In order 
to understand in any detail the workings of the Monitor a knowledge of 
Z80 low level language is required, but readers without this knowledge 
will find that parts of the chapter illustrating data tables in the monitor 
or describing start addresses of Monitor routines will be useful. A good 
book for learning about the 280 is Rodnay Zacs' "Programming the 
280”. Readers should see Chapters 24 - 27 of the Sinclair Manual for 
further background information. 


Hexadecimal 


As described in Chapter 24 of the Sinclair Manual, binary and hexadecimal 
numbering is generally used when discussing the contents of ZX81 

memory locations. Consider a location containing the decimal number 

28. In binary this is 


Ж, ДА тс ЖЖ. 
27 29-25-2622 Дер 20 


since 24 + 23 + 22 = 16+8+ 4 = 28 


In hexadecimal we have 


1C hex = 28 decimal 


But taking each hex digit as four binary digits 


thus showing how hexadecimal is a useful "shorthand" for binary. 
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In this chapter we will be using both decimal and hexadecimal numbers 
to represent memory addresses and contents. Therefore a useful start is 
a program to convert decimal numbers to hexadecimal. 


The program uses an algorithm based upon a manual method of conver- 
sion. Consider for example 7654 decimal. ІТ we successively divide this 
by 16 and take the remainders we have 





16 | 7654 
16 |478 remainder 6 = 6 hex 
16 | 29 remainder 14 = E hex 
16} 1 remainder 13 = D hex 
0 remainder 1 


I 
47 


Thus 7654 decimal - 1 D E 6 hex 


Here is the program: 


5 
10 
20 


DIM H$(4) 

PRINT "NUMBER-"; 

INPUT C 

IF С-0 THEN STOP 

GO SUB 500 

PRINT C;"bbHEX-''; 

IF С> 255 THEN PRINT H$(1);H$(2) ; 
PRINT H$(3);H$(4) 

PRINT 

GO TO 10 

LET DTSC 

FOR І-4 TO 1 STEP -1 

LET D2-INT(D1/16) 

LET H$(I)-CHR$(D1—16*D2-*28) 
LET D1-D2 

NEXT I 

RETURN 


The subroutine at line 500 does the conversion to hexadecimal while the 
first part of the program enters a number and then prints a hexadecimal 
number of an appropriate size. 


Conversion from hexadecimal to decimal is simpler. 
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10 PRINT “НЕХЬМОМВЕВ-“; 

20 INPUT HS 

30 IF HS THEN STOP 

40 LET D-CODE H$(1)—28 

50 FOR 1=2 TO LEN H$ 

60 LET D=16*D + CODE H$(1)—28 
70 NEXT I 

80 PRINT HS$;"b,DECIMAL-"';D 
90 PRINT 

100 GO TO 10 


Monitor Routines and Entry Points 


The disassembled listing of the 8K monitor given in Section 4.2 gives 
readers a chance to work out for themselves just how the ZX81 works. 
To make the task a little bit simpler the following points will be helpful. 
Addresses given below are in hexadecimal. 


(i) The program starts are location 0000 as in any Z80 system. 

(ii) RST 0008 is the ‘error report handling’ entry point. 

It is entered by using the instruction 'CF — RST 0008' 
followed by a data byte for the required error., e.g. see 
02Ғ4 RST 0008 

02F5 ‘OE’ 

which gives error “Е”. 

(iii) RST 0010 is the character printing routine. The normal way 
to print a character to the next position on the screen is to 
load the A register with the appropriate character code 
(including NEWLINE) and then call this routine by using the 
instruction 'D7 — RST 0010.' 

(iv) RST 0018 and RST 0020 are routines for collecting the next 
character in a BASIC line. 

(v) RST 0028 is the entry point for the ‘floating-point calculator’, 
which starts at location 199C. (See note xxxvii). | 

(vi) RST 0030 is a routine that will make ‘BC’ spaces in the 
variable area. 

(vii) RST 0038 is the interrupt routine that handles the lines of 
the T.V. display. 

(viii) The routine at 0066 is the NMI routine that leads to a T.V. 
display being formed following a NM interrupt in 'slow' 
mode. 

(ix) The main ‘key table’ is at 007E to 00СВ. There is a code for 
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each key in 'lower'case and in ‘shift’. 

(x) Тһе Кеу-содез for the ‘function mode’ аге in the table from 
ООСС to OOF2. 

(xi) Тһе key-codes for the ‘graphics mode’ аге in the table from 
QOF3 to 0110. 

(xii) The command table is at 0111 to @1FB. Each keyword is 
listed with its last letter inverted. 

(xiii) The ‘update routine’ at 01ЕС to 0206 is used by the LOAD 
and SAVE command routines. 

(xiv) The routines from 0207 to 02BA are used to produce the 
T.V. display. 

(xv) The keyboard scanning routine at 02BB to 02E6 is a very 
useful routine. Each key of the keyboard gives a unique 
key-value in the HL register pair. No key pressed gives 
the value FFFF. 

(xvi) The SAVE command routine is at 02Е6 to 033F. 

(xvii) The LOAD command routine is at 0340 to 03A7. 

(xviii) The routine at 03СВ to @3E4 is the RAM integrity check 
routine that is carried out upon initialisation and 
following a NEW command. 

(xix) The main initialisation routine starts at @3E5, and is 
followed by the operating system routines for handling the 
‘cursor’ and forming LISTings. 

(xx) The main command routine for the running of a BASIC 
program is from @63E to @6DF. 

(xxi) The keyboard decode routine at 07B4 to @7DB is also very 
useful as it converts the key-values (in BC now) to the values 
1—78 and forms the appropriate address, in HL, for a 
given key in the main key table. (see note ix). 

(xxii) The routine at 07Ғ1 to 0868 is the character printing 
routine used by RST 0010. (see note iii.) 

(xxiii) The routine at 08F5 to 094A is concerned with expanding 
the display file, in the case of a 'collapsed' display file. 

The routine in effect sets the system variable ‘DF—CC’ to 
a legitimate address. 

(xxiv) The CLS command routine is at ФАЗА to фАБЕ. 

(xxv) The PRINT command routine is at ВАСЕ to @BAE. 

(xxvi) The PLOT/UNPLOT command routine is at @BAF to 
0С00. The difference between the commands being 
dependant on the current value of T-ADDR. 

(xxvii) The SCROLL command routine is at ØCØE to 0С28. 

(xxciii) The main syntax tables are at 0C29 to @CBY. The first 
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part being a pointer table and the second part the actual 
syntax table that gives the required syntax for each 
command and the address of the ‘command routine’. 
(xxix) The BASIC interpreter starts at OCBA. 
(ххх) Тһе FAST command routine is at 0Ғ20 to 0Ғ27 and can 
be simply called using ‘CALL @F 20’ to enter FAST mode, 
or ensure the presence in FAST mode. 
(xxxi) Тһе SLOW command routine is at ÜF28 to @F2E and can 
likewise be called by ‘CALL QF28". 
(xxxii) The 'Expression Evaluator' starts at location 0Е52. 
(xxxiii) The LET command routine is at 1310 to 1404. 
(xxxiv) The DIM command routine is at 1405 to 1483. 
(xxxv) The routines between 14CA and 1913 are concerned with 
handling 'floating-point' numbers. e.g. the routine 
'Evaluate to integer' is at 1586. Print 'Last value' is at 
15D7, etc. 
(xxxvi) The function table for the ‘floating-point calculator’ is at 
1914 to 199B. 
(xxxvii) The ‘floating-point calculator’ is at 199C to 1AA8. 
(xxxviii) The various function routines are at ТАД9 to 1DFF. 
e.g. CHR$ is at 1B8E to 1BA2, COS is at 1030 to 1D47, 
etc. 

(xxxix) The ‘character generator’ is at 1Е00 to 1FFF. This part 
of the 8K ROM holds the 8*8 formats of the 64 characters 
that can appear on the T.V. display. 


Program Aids 


A number of BASIC programs can be written to assist in the examination 
of the Monitor, and particularly the data tables. 


HEX DISPLAY 


This program displays the contents of Monitor addresses in hexadecimal 
starting at a specified address: : 


5 DIM H$(4) 

10 PRINT "START-"; 

20 INPUT S 

25 PRINT S 

30 FOR A-S TO 8191 STEP 8 
35 SCROLL 
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40 LET C-A 

50 GO SUB 500 

60 PRINT AT 5,0;H$;"bbb"'; 
70 FOR B-A TO A*7 

80 LET C-PEEK(B) 

90 GO SUB 500 

100 PRINT H$(3 TO 4);"b"; 
110 NEXT B 

120 PRINT 

130 NEXT A 

140 STOP 

500 LET D1=C 

510 FOR 1-4 TO 1 STEP -1 
520 LET D2-INT(D1/16) 
530 LET H$(I)=CHR$(D1—16*D2+28) 
540 LET D1-D2 

550 NEXT I 

560 RETURN 


This works in 1K — for a 16K system change the PRINT AT statement 
at line 60 to give a larger screen display. 


CHARACTER DISPLAY 


This program displays the contents of Monitor addresses as characters — 
useful for some data tables. 


19 PRINT "START-"; 

20 INPUT S 

25 PRINT S 

30 FOR A-S TO 8191 

40 SCROLL 

50 PRINT AT 15,0;A;"bbb";CHR$ (PEEK A) 
60 NEXT A 


The program is very handy for displaying the Key Table (locations 126 
to 272 ) and the following Command Table (iocations 273 to 507). As 
described in the previous section the Key Table holds codes for the key- 
board keys in ‘lower’ case, in shifted form, in function mode and finally 
in graphics mode. RUN the program with start address equalling 126 
and the appropriate keyboard values will be shown. In the Command 
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Table we find each keyword with the last letter held in inverse form. To 
show this, run the program with a start address of 273, or simply let it 
run on after the Key Table. 


CHARACTER GENERATOR DISPLAY 


The last data table in the Monitor is the character generator held in 
locations 7680 to 8191. This holds the formats for each of the 64 
characters used on the ZX81 by means of eight bytes per character, each 
byte consisting of 0 's and 1's representing unshaded and shaded portions 
respectively. 


For example the letter R has character code 55. The portion of the 
character table holding the format for В is locations 8120 to 8127. 


i.e 7680 +(55 x 8) to 7680 + (55 x 8) + 7 


The binary patterns in these locations are shown below 


Location Contents 

8120 00000000 
8121 011111200 
8122 01000010 
8123 01000010 
8124 01111190 
8125 01000100 
8126 01000010 
8127 00000000 


This represents 
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A routine to use the character table to display large characters has 
already been utilised in Chapter Three, and is shown again below. 


To display characters at four times size we use the PLOT statement. 


10 PRINT "CHARACTER-"; 
20 INPUT А5 

25 LET C-CODE A$ 

30 PRINT AS;"bCODE- ;C;'ATbLOCb'7680*C*8 
40 FOR H-0 ТО 7 

50 LET P=PEEK(7680+C*8+H) 
60 LET V-128 

70 FOR G=@ TO 7 

80 IF P<V THEN СО TO 110 
90 PLOT G,40—H 
100 LET P=P—V 
110 LET V-V/2 
120 NEXT G 
130 NEXT H 


For eight times size we use the PRINT AT statement and this can help 
illustrate the unshaded portions. We display the shaded portions using 
"Wl" and the unshaded by “8”. Modify the above by 


80 IF P<V THEN GO TO 108 
90 PRINTATH*3,G;"MM" 
104 GO TO 110 
108 PRINT AT H*3,G;" EX" 


and the character will appear black on a grey background. 


4.2 MONITOR LISTING 


The next eleven pages contain a disassembled listing of the ZX81 8K 
ROM Monitor between addresses 0000 and 0СВ9, that is, up to the end 
of the syntax table. The rest of the Monitor has not been included 
since much of it consists of the BASIC interpreter which is not 
particularly interesting or usable. 


A description of Monitor routines and tables appears in Section 4.1 
and the listing should be studied in conjunction with this. 
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0000 
0002 
0005 
0008 
000R 
000F 
0^10 
0011 
0014 
0017 
0018 
0016 
001С 
0010 
001E 
001Ғ 
0020 
0025 
0025 
0024 
0027 
0028 
0028 
0026 
0020 
002Е 
002F 
0030 
0051 
0054 
0055 
0039 
00:9 
0036 
0050 
005Е 
001 
9041 
0043 
0044 
0045 
0046 
0047 
0049 
004г 
004П 
0050 
0051 
0053 
0054 
0054 
0057 
0058 
005Б 
005Ғ 
0062 
0965 
0066 


C3 


Ft 


49 
ғ? 


9с 


14 


94 


45 


2 p 


AF 


F8 
16 


16 
7F 
F6 
75 
78 


07 
ЕВ 


ТЕ 
03 
40 
40 


07 


07 


40 


00 


19 


40 


14 


00 


40 


40 





40 


QUT (РО), 
LD PC.7FFF 
JF O3CR 

LM HLLC4016) 
ЕП (4018). НЕ 
JR 0056 

AH A 

JP HZ,07F1 
JP 0775 

RST 38 

LD HL.( 4016) 
опа, СН) 
AND А 

RET NZ 

ноғ 

НОР 

CALL 0049 

JR OOIC 

RST 38 

RST 38 

RST 38 

JP 1996 

FOP AF 

EXX 

EX (SP).HL 
EXX 

RET 

PUSH EC 

LD HL,( 4014) 
FUSH HL 

JP 1484 

DEC C 

JP NZ.0045 
РОР HL 

DEC P 

RET Z 

SET 3,C 

LO R.A 

FI 

JP (HL) 

РОР Ut 

RET Z 

JR 0041 

LO HL.C4016) 
INC HL 

LD (40160. 
LD А, СНЫ) 

CF ТР 

RET NZ 

JR 004C 

FOP HL 

LD LHL) 

LD (РОД 

LD SP,( 4002) 
CALL 0207 

JF 1408 

RST 38 

FX AF LAF’ 


0047 
0068 
0048 
00 
006Е 
006Е 
0070 
0071 
0072 
0073 
0074 
0077 
0079 
0074 
007C 
007E 
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ғ 


UC 


BU 


240 


IHC а 
JP M.0060 


JR 7.0067 
EX AF AF’ 
RET 
EX AF AF’ 
FUSH AF 
FUSH ЕС 
FUSH DE 
FUSH HL 
LD HL.CA00C ) 
SET FCN 


HALT 


NUT (РО). А 
JP CIX) 


ие 


55 


S 


DF 
08 
C8 
C4 
ВА 
05 
39 


E ES 


5% 
ЕВ 
33 
39 
31 
69 
te 
2E 
35 
33 
^9 
E7 
30 


ЗА 
34 
OF 
72 
oc 
С? 
06 
В? 
ВЕ 
26 
28 
E3 


те 
^" 


34 
an 
31 

33 
37 
53 
26 
89 
2Е 
27 
24 


3E 
ФЕ 
10 
77 
1А 
CF 
05 
81 
91 
А? 
34 
га 
2А 
e9 
га 
2E 
дА 
га 
35 
за 
35 
ав 
га 
ЗЕ 


2А 
ЗА 
F3 
74 
12 
40 
78 
RO 
90 
AF 


RB 3 


zn 
2A 
17 
E3 
zB 
EC 
Рә 
за 
38 
31 
28 
39 
ап 


в? 


ЗА 
35 


39 
76 
F4 
70 
17 
78 
C4 
84 
n^ 
34 
26 
ФЕ 
за 
34 
E4 
38 
28 


2 34 


34 
55 
B9 
E8 
37 
AE 


34 


1E 


30 ‹ 


го 
OF 
CE 
78 
00 
01 


92 
AA 7 
26 


Е9 


в? 


тұ 
А 


29 
24 
34 


eb 2 


26 
20 
за 
33 
г 


О1ЕС 23 INC Hi. 0266 46 tO ECHL) 


orm LE EX ПЕН 0260 76 LO A,E 
ЕЕ PA 14 40 LO HI ,C4014) 025Е FE FE CF FE 
0201 37? SCF 0270 9F SEC A,A 
0002 ED 52 SEC HL „NE 0271 06 IF ІП By TF 
0204 ЕЕ ЕХ ПЕН 0273 Pé Ok CHL) 
0205 110 RET МС 0274 AO ma Е 
0706 Г! FOF ML 0275 ІҒ ККА 
0207 21 36 40 Lh HL, 4036 0276 11 10 (м), А 
090^ ТЕ (ОА, СНГ) 0277 (15 FF QUI (ЕР), А 
0206 17 МА 0279 2А OC 40 Lo HE ,¢400C) 
020€ AE хок CHL) 027C CR FC SET 7,H 
0200 17 х RLA O27E CO 92 02 CALL 0292 
020E (0 FET NC 0201 ED SF LO A,R 
020F SE ТЕ LO А, 7Е 0203 01 01 19 10 EC,1901 
0211 08 ЕХ AF „АР“ 0286 ЗЕ F5 LO А,Ғ5 
0212 06 11 10 B,1) 0208 CL ES 02 CALL 0265 
0214 03 FE QUT (FE),A 0286 26 GEC Hl 
0216 10 FE 0.2 0216 0297 CD 92 02 CALL 0292 
0218 03 FO QUT (FU),A O28F C3 29 02 JF 0229 
0214 08 EX АР „АР“ 0292 ПЕ! РОР IX 
0218 17 RLA 0294 FO 4E 28 го C.C1Y+#28) 
021€ 30 08 JR NC 0226 0297 ҒО CE ZE 7E EIT 7,CIY*ZB) 
021Е СВ FE SET 7, СН.) 0298 28 ОС JR 7,0249 
0220 Ғ5 FUSH АҒ 0290 79 1Û А,С 
0221 С5 PUSH EC 029E EL 44 NEG 
0222 ІШ FUSH DE 0240 3C INC а 
0223 ES FUSH HL 0241 08 EX AF.AF* 
0224 18 03 JR 022 дело (3 FE OUT (ЕЕ). А 
0226 СЕ Eé RES 6.(Н.) 0244 Е! FOF HL 
022869 КЕТ 0245 1 FOF DE 
0229 21 34 40 10 М (4034) 0206 С! FOF ЕС 
0226 28 DEC Hl 02А7 FL FOF AF 
9220 ЗЕ 7F LO А. ТЕ 0208 C$ КЕТ 
0222 A4 ANU H 0249 ЗЕ FC LO А, ЕС 
0230 BS OR Û OZAB 06 01 LO E,01 
027 7C LD AH 02А0 CG FS 02 CALL 0265 
0232 20 03 JR NZ,0237 0260 2B DEC HL 
234717 RLA 0261 ЕЗ EX (SP),HL 
0225 18 02 JR 0239 0282 ЕЗ EX (SF), HL 
0237 44 го £,CH ) 02E3 00 E9 JF CIX) 
0230 37 SCF 0285 ED 4F LO К,А 
0239 67 LD H,A 0287 ЗЕ 00 LO а,00 
023A 22 34 40 10 (4034 ),HL 0289 FE EI 
0250 00 КЕТ NC OEA E9 JP CHL) 
023E CD ЕБ 02 CALL 0268 OE 21 FF FF LU HL,FFFF 
0241 ED 4B 25 40 LO BC,( 4025) 02БЕ 01 FE FE 10 EC,FEFE 
0245 22 25 40 LO (4025) HL 0201 ЕС 78 IN A,(C) 
0248 78 LO A,B 0203 Fé 01 ок 01 
0249 Cé 02 ADU 4,02 0265 Fé ЕО OR EO 
024p ED 42 SEC HL,EC 0267 5 tu П.А 
0240 ЗА 27 40 LO А,(4007) 0208 2 CFL 
0250 E4 OR H 0209 FE 01 CF 01 
0251 ES OR L OCE 9F SEC А.А 
0252 58 1) Е,Б o?CC EO OR Е 
0253 06 OE Lu Е, ОЕ 00C0 АЗ АНП L 
0255 21 ЗВ 40 LD HL,403B ORE GF IU t.a 
258 СЕ 86 RES OC) fE- (€ ТО Ayu 
0254 20 08 JR N2,0264 020 A? AHD D 
ett СЕ 7E EIT 7.CHL ) 0201 6? LO Н.А 
025Е CE Cé SET OHL?) 0202 CE 00 кос в 
0250 СВ RET 7 0204 ЕП 78 НА. СС? 
024) 05 DEC В 0006 58 ЕП IK с.0гс5 
0262 00 НОР 0208 IF кка 
0263 37 SCF дара VE па RL H 
0264 21 27 40 LD 1,4027 00NE 17 RLA 
0267 ЗЕ CCF ONC 17 RLA 
0248 ГЕ 10 RL R 0200 17 RLA 
Q?6^ 10 FE [М1 026A 020Е Е SEC А, А 
0206 Eá 18 АНО 18 
02Е1 C6 IF ALD А Е 
02E3- 52-28 40 LU (4028),A 
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9216 
02Е7 
O2ER 
OPEC 
0?F0 
OEF 
02Ғ3 
OCF 4 
0275 
0277 
erg 
OOF? 
ore 
02ҒС 
oF 
0502 
0204 
0206 
0307 
0208 
0209 
0508 
050Е 
0310 
0511 
0213 
0216 
0219 
031C 
031E 
O31F 
0220 
0222 
0323 
0524 
526 
0528 
0529 
0528 
052 
О72Е 


779 


XM 


0234 
0556 
228 
0229 
0578 
033C 
SE 
0340 
0243 
0345 
0347 
024^ 
0z4C 
034E 
250 
0352 
0354 
0356 
0557 
0359 
055 
C250 
055 
0540 
0561 
0364 
0545 
0366 
0269 


1Е 


09 
1Е 
FC 


4C 
7A 


3P 7E 


03 


40 
03 
01 


03 





RET 

BIT 7,CIY*3B) 
RET 7 

HALT 

QUT (FD).A 
RES 7,CIY438) 
RET 

RST в 

Ln с,со 
XOR в 

INC EC 

JR C.02F4 
ЕХ ПЕН 
LO DE, 12CP 
CALL OF 43 
JR NC,03352 
QUHZ 0304 
DEC DE 

LD A.D 

OR E 

JR N7.02FF 
CALL O31E 
BIT 7,CHL) 
IHC HL 

JR 7.0306 
LO HL, 4009 
CALL 031E 
CALL OIFC 
JR 0316 

LD E,CHL) 
SCF 

RL E 

RET 7 

SEC А,А 
^ND 05 

ADD 4,04 
LD с, А 

OUT (РР) А 
LO р,23 
0.47 0320 
CALL OF 43 
JR NC, 0306 
LD Р,1Е 
QJHZ 0336 
ПЕС C 

JR NZ.0229 
AND А 

DINZ 0338 
JR 0320 
CALL OZAB 
RL D 

RRC D 

CALL 034C 
JR 0347 

10 C,01 

10 R.00 

LD А, ТЕ 

ІМ А, (ЕЕ) 
OUT (FF),A 
RRA 

JR NC.0342 
RUA 

RLA 

JR C,0385 
DINZ 0350 
РОГ AF 

CF n 

Jf HC. OSES 
LO н.о 
шт. 
CALL 034C 
RIT 7.0 


03466 
036C 
036E 
026Ғ 
0571 
0372 
0373 
0275 
0278 
0578 
037€ 
037F 
0580 
0285 
0205 
0386 
0388 
028A 
038E 
0580 
OSRE 
0390 
0391 
0393 
0295 
0396 
0398 
OZ9A 
029г 
0590 
039 
0541 
0542 
0243 
0244 
0246 
0347 
OZAR 
OZAR 
ОЗАЕ 
OSAF 
0382? 
0585 
0584 
0265 
0528 
ОЗЕВ 
05ЕС 
0320 
OZEE 
ОЗЕРЕ 
03C0 
03C2 
O3C3 
0306 
05ГА 
OZEE 
03сс 
0500 
05СҒ 
0271 
ozn? 
0585 
оз, 
0716 
0218 
0:19 
0308 
oznc 
0300 
0308 
02Ғ0 
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79 
20 
РЕ 
20 
23 
17 
20 
го 
2! 
50 
со 
71 
со 
18 
05 
1E 
06 
10 


E7 
F4 


Е? 


AR 


03 


F3 


OF 
40 


on 


02 
13 


02 
04 40 


Lh A.C 

JR NZ. 0371 
CP (HL) 

JR N7.0347 
IHC HL 

RLA 

JR HC, 0366 
INC (IY+15) 
LU HL.4009 
Ln D.R 
CALL 034C 
LD (HL),C 
CALL OIFC 
JR 0578 
FUSH DE 

LD E,94 


DJNZ 0384 
FOF DF 

JR NZ,039C 
cr 56 

JR NC,O34E 
CCF 

Rt € 

JR NC.OZAE 
RET 

Lo A.D 

AND A 

JR 7,0341 
RST B 

INC с 
CALL OFS2 
LN 6.4001) 
ADD A,A 

JF M, 009A 
FOF HL 

RET НС 
FUSH HL 
CALL 02E7 
CALL 13F4 
LD HO 

LD L,E 

DEC С 

RET M 

ADD HL RC 


CALL 02Е7 
Lt BL, C4004) 
ПЕС PC 

LO Н.Е 

LO L.C 

10 А.ЗЕ 

LO (НО), 02 
ПЕС HL 
cru 

JR NZ.03CF 
АНИ А 

SEC ML. EC 
Ано HE LEC 
INC HI 

JR HC.O3F2 
НЕС CHL) 
JR Z,03F2 
DEC CHL) 
JR 7,0505 


ADDN 


Qi ^J со го‏ رم 


04 
04 


cs 
ол 


40 
40 


23 


40 
09 


40 


> 05 


20 


14 
40 


40 
40 


40 


6F 


LO (4004), НС 
LO HL,( 4004) 
DEC HL 

LD (HL), 3E 
UEC HL 

LD SP ,HL 

DEC Ht 

DEC HL 

LD (4002),HL 
LO A,1E 


LO IY,4000 
LD C IY438),40 
Lo HL, 4070 
LO (400€ ), HL 
LD 2.19 

LD CHL,76 
INC HL 

NINZ 0408 

LD (4010). не 
CALL 1496 
CALL 1449 
CALL 0207 
CALL 0426 

LO HL,( 400A) 
LO DE,( 4023) 
AHO A 

SEC HL.DE 

EX DE,HL 

JR NC.042D 
ADD HL, CE 

LO (4023), НС 
CALL 0908 

JR 2,0432 

EX DE,HL 
CALL 073Е 
DEC (IY*1E) 
JR N2,0472 
LD HL ,( 4004) 
CALL 0908 
LO HL ,( 4016) 
SCF 

SEC ML ,DE 

LO Ht, 4023 
JR HC, 0457 
EX DE,HL 

Un ALCHLO 
INC HL 

t DI 

10 (DE).A 

JR 0419 

10 HL. 400A 
10 ECHU) 
INC HL 

(оо, сн 
PUSH HI 

EX DE,HL 

INC HL 

CALL 0908 
CALL OSER 
FOF Ht 

RIT S,CIY*20) 
JR N7.0472 
LO (мо 
ст 

LO СНС) Е 

JR 0419 

CALL 1449 
LO. HL,( 4014) 
LO A,(HL) 
СР ТЕ 


107 


FC 


00 
0^ 


00 


00 


01 


FF 


ТЕ 


56 


JR NZ.04n2 
LO ЕС,0006 
CALL 0450 
JR 0475 

СР 76 

IHC HL 

JR N2.0475 
CALL 0537 
CALL ОАЕ 
LO HL,( 4014) 
LO CY) FF 
CALL 0766 
BIT 7,CIYO 
JR Н7.04С1 
LO A.( 4022) 
CF 18 

JR нс.очсъ 
INC а 

LO (4022).A 
LU 8,4 

LD C,01 
CALL 0918 
LO D.H 

LO E,L 

LO А. СНС) 
DEC HL 

CP (HL) 

JR М2,04В1 
INC HL 

EX DEHL 

LU A,C4005) 
CP 4p 

CALL C,0A5D 
JR 048A 

LO HL.0000 
LD (4018). HL 
LD HL, 403E 
PIT 7,CHL) 
CALL 2.022 
PIT O,CHL) 
JR 7.04CF 
LU EC,( 4025) 
CALL OF48 
CALL 0760 
JR NC, 0472 
LD 4,4006) 
DEC А 

JP M,0508 
JR NZ.04FT 
LO (4006),A 
UEC Е 


Lo 16.0007 
Anti HE LOL 

JR 0515 

LO ALM) 
BLT 2.CIY401) 
ІК Н7.0516 
ann ALCO 

СР ES 

JR НС, 0516 


маи 
514 
0518 
OSIE 
051€ 
OSIF 
0520 
0523 
05^ 
529 
0524 
0526 
0500 
052Е 
532 
0533 
554 
0525 


S34 
зо 


0527 
0524 
93E 
0540 
0544 
0545 
0547 
0548 
549 
SAC 
054Е 
055 
0552 
055 
556 
055А 
95% 
055 
0562 
0563 
0564 
0565 
0566 
0567 
0548 
569 
56А 
0568 
056С 
SOF 
571 
572 
0545 
0574 
575 
516 
0579 
STA 
957С 
0570 
IF 
580 
0581 
583 
0585 
0587 
05808 
0589 
058Е: 
OSRE 
0591 
0593 


со 
7E 


CO 2 


© 
” 


8B 


04 


40 
20 


: 01 


07 


01 


00 
ОА 


ос 


05 


6E 


96 


06 


рол, сн.) 
СР FO 

JF РЕ ,OS20 
LOE,A 
CALL 0537 
LU A,E 
CALL 0526 
JP 0472 
CALL 0996 
LU (0Е),А 
КЕТ 

LO 4,78 
tO Е,А 

LD HL,0482 
ADD HL , OE 
ADD Н, ОЕ 
LO с, (НС) 
INC HL 

LO в, СНС) 
FUSH вс 

LD HL.C4014) 
БІТ 5,CIY*2D) 
JR NZ,0556 
RES 2,(1Ү401) 
LO A,CHL) 
СР 7F 

RET 2 

INC HL 
CALL 0784 
JR 2,0544 
CP 26 

JK C,0544 
CF DE 

JR 2,0540 
SET 2,CIY*01) 
JR 0544 

LO £C,0001 
JP 0450 
SEC A,A 
DEC В 

LO D,H 

INC в 

HALT 

GEC В 

LD А, А 

GEC E 

хок А 

bEC В 

CALL N2,0C0S 
LO в, вв 
ПЕС E 

XOR А 

ПЕС E 

XOR A 

DEC E 

CALL 0593 
ИРА, СНЫ) 
10 СМ ›,7Е 
INC HL 

Ж 0588 
INC он 

LO А, СИЕ) 
СР 76 

JR 7,0590 
LO CHL ,7F 
DEC HL 

LU (HL),A 
JR 0523 
CALL 0593 
CALL 0556 
JR 0589 
OFC HL 


0594 
0598 
0599 
059E 
059C 
0590 
059 
05А2 
0565 
05^5 
549 
05АС 
о5АГ 
SEO 
05Е2 
SES 
0587 
05Е8 
OSEE 
05ЕС 
05ҒЕ 
05с0 
05С1 
о5са 
0503 
0564 
0507 
05СА 
OSCE 
OSCF 
500 
503 
05116 
0509 
050С 
OSUF 
05Е2 
OSES 
OSES 
05Е7 
SEB 
OSE? 
SEC 
SEN 
05ҒЕ 
OSEF 
05Ғ0 
05Ғ1 
0555 
OSF7 
o5ra 
05Е9 
SFA 
05Е0 
ОЗГЕ 
SPF 
0601 
0502 
0603 
0605 
0606 
0407 
050A 
050€ 
OLOF 
061? 
0616 
0438 
0616 
061С 
06)Е 
0620 
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со 08 


со (8 


CD А5 


ED SE 
ЗЕ ТЕ 


14 


40 
09 


j 05 
; 40 


04 


40 


04 


0^ 


ОЕ 


00 


14 


ФА 
04 


|n 


40 


08 


40 


6E 


40 


6E 


\ tt 4014) 
LU А, (ОЕ ) 

СР ТЕ 

КЕТ Н2 

РОР UE 

JK 0589 

LO HL,( 4004) 
CALL 0908 

EX OE ,HL 
CALL OSEE 

LO HL, 400Е: 
ЈР 0444 

LO А.Е 

АНО 07 

LU (4006), А 
ЈК 0590 

EX ПЕН 

LO DE,O4C2 
LO A,CHL) 
AND CO 

ЈК NZ,05E7 
LG D,CHL ) 
INC HL 

LO Е, СНС) 
RET 

CALL ОАЕ 

LO HL, O46F 
FUSH HL 

BIT 5,(1Ү%20) 
КЕТ NZ 

LO HL,( 4014) 
LD (400Е ),HL 
LO № ,1821 
10 (4039), НЕ 
LO HL,( 400A) 
CALL 0908 
CALL OSEE 

LO А,0 

ОК Е 

RET 7 

DEC № 

CALL. OAAS 
THC Ht 

10 CCH) 
INC HL 

LD E.CHL) 
INC HL 

16 DE,C400E) 
ТО А, ?Ғ 

LO (ПЕ ),А 
INC ПЕ 

FUSH Н 

10 ні ,0010 
AUD HL, OE 
AGU HL , EC 
SEC HL,SP 
FOF HL 

RET NC 

LOTR 

ЕХ DE, HL 

FOF DE 

CALL 14A2 

Jk 0590 

CALL OALF 

( М „0472 
БІТ S.C 1420) 
JR NZ.0629 
LU HL,( 4014) 
10 A,CHL) 

СР ЕЕ 

JR 2.0626 
CALL ORF? 


m 
0406 
0429 
0674 
АГП 
OACE 
05721 
0654 
0657 
0659 
OSSA 
0652 
065Ғ 
06:27 
0640 
0644 
0648 
064С 
064E 
0650 
0652 
0556 
0559 
0650 
0451 
0562 
0644 
6667 
0668 
066С 
066r 
9470 
0673 
0676 
067^ 
067С 
047Е 
0682 
0606 
048A 
069г 
068F 
0590 
0692 
0693 
0594 
0695 
0659 
069^ 
049E 
069Г. 
0490 
069E 
069 
0440 
0563 
OLAS 
Т 
одай 
O4AAC 
OANE 
OAR 
OARS 
067 
ДЕН 
OLTE 
on? 
045 
04605 
0607 
069 
OLCA 


CE 


cc 


1C 


OF 


40 


oF 


40 
02 
40 


40 


о» 
гә о 


ВЕ 


АЕ 
7Е 


ТЕ 


40 


40 


CALL 0A24 
LO HL 0419 
FUSH Hi 

CALL OCRA 
FOr HI 

CALL 0537 
CALL O55C 
CALL 0073 

JR NZ,064F 
LD А, В 

ок с 

JF NZ,04EO 
DEC EC 

DEC EC 

LO (4007 вс 
LD (1Y*22),02 
LO DE,( 4000) 
JR 0661 

CF 76 

JR 2,0664 

LD EC,( 4030) 
CALL 0918 

LU DE ,( 4029) 
LD (1Ү+22),02 
RST 18 

CP 76 

JF 2,0413 

LD (IY+01),80 
EX DE,HL 

LO (4029), Н. 
EX ОЕ, 
CALL ооп 
CALL OCCI 
RES 1,CIY401) 
LO A,CO 

LD CIYA19),A 
CALL 149F 
RES 5,CIY*2D) 
БІТ 7,(1Y) 
JR 7, 06AE 

LO HL ,( 4029) 
AHD (HL) 

JR NZ,06^E 
LD D,CHL) 
INC HL 

Lo ECHL) 

LD (4007 ),DE 
INC HL 

10 E,CHL ) 
INC HL 

LO (CHO 
INC HL 

EX DELHI 

ADD НЕ. ПЕ 
CALL 0743 

JR С.0666 

Un HL. 4000 
РТТ 7.8.) 
JR 7, O6AE 

їп (HL), OC 
BIT 7.CTIY4 38) 
CALL 7.0071 
LD FC,0121 
CALL 0918 
10 А. (4000) 
LO 20,4007) 
INC A 

JR 7,0601 

CF 09 

JR NZ,06CA 
IHC EC 

LO (4026) РС 


ОДИ; 
0610 
061 
0604 
0616 
0607 
06ПА 
0610 
0600 
06Г4 
04Е7? 
06ЕВ 
O6FE 
O6EC 
05ГЕ 
0671 
06ғ2 
06г3 
006 
0679 
оБРА 
0670 
DAFF 
0702 
0705 
0706 
0707 
0708 
0709 
070A 
0708 
070C 
070D 
070Е 
070F 
0710 
0713 
0716 
0717 
0718 
0719 
071€ 
0710 
071F 
0722 
0723 
0724 
0725 
0776 
0727 
0728 
0729 
TPA 
0776 
0726 
0720 
0771 
0754 
0736 
0757 
0758 
0736 
073Е 
0740 
0743 
0745 
0749 
074C 
074E 
0750 
0753 
0755 
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ГЕ 


9E 
07 


е8 
0^ 


ce 
AT 


09 
02 


0! 
ОЕ 


40 


СЕ 


IK Hz. 06011 
ПЕС ЕС 

CALL 07ЕВ 

LU ^, 18 

RST 10 

CALL 0698 
CALL 1449 

JF O4C1 

1N C400A ), FC 
LO HL,( 4016) 
EX ПЕ,НС 

Lf HL, 0413 
FUSH HL 

Lf HL .( 4014) 
SEC HL. [FE 
PUSH HL 

FUSH ЕС 

CALL 90Е7 
CALL OA2ZA 
FOF HL 

CALL 0908 

JR Н7,0705 
CALL 09Е2 
CALI. 0460 
РОР ЕС 

IO A,C 

СЕС а 

OR B 

RET 7 

PUSH BC 

INC EC 

INC EC 

INC EC 

INC ЕС 

(ЕС HL 

CALL 099E 
CALL 0207 
FOF EC 

FUSH EC 

INC UE 

LO HL,( 401A) 
UEC HL 

LOOR 

LO WL, C 400A) 
EX DE,HL 

FOF ВС 

со CHL DR 
DEC НЕ 

LU (M,C 
ПЕС HL 

LO CHLOE 
DEC HL 

осн ә. 
КЕТ 

SET 1.(17401) 
CALL ОЕА? 

Un А, Е 

AND ЗЕ 

LN H.A 

to L,C 

10 с4оой).не 
CALL 0908 
ЕЕ. 00 

CALL 0745 

ІК 0740 

LO EC,( 400A) 
CALI O9EA 

10 0,92 

JR 7.0755 

LD NE „0000 
RL Е 

LN CIY#IE).E 


ог 
0759 
075Б 
0756 
0750 
075Е 
0161 
074? 
0705 
0764 
0/65 
0766 
0769 
07% 
0771 
0774 
0775 
0777 
0779 
0778 
077e 
077F 
9780 
0781 
0784 
6/87 
0709 
078E: 
отан 
отаг 
0791 
0793 
0795 
0798 
0794 
079Б 
0790 
0740 
07A? 
07A3 
0745 
0748 
076^ 
огАВ 
о7аС 
OTAE 
O7AF 
07Е2 
07Е4 
0766 
07:7 
07Е8 
0769 
OTEA 
07-6 
оГ 
ого 
OEF 
07C1 
07C2 
07С4 
07C6 
07C7 
о?са 
0779 
O7CE 
осо 
O7CF 
O70F 
0700 
0711 
0703 


40 


45 


01 
r2 


ОА 


40 
01 
18 
40 


40 


07 
40 


09 


40 


40 


07 


Có 
40 


LU. А СН) 
СР 40 

РОР EC 

RET NC 

FUSH ЕС 
CALL OAAS 
INC HL 

LO А,0 

RST 10 

INC НІ. 

IHC Hi 

LO (4016), НЕ 
SET 0, (1701) 
10 6C,( 4018) 
LO HL,C4015) 
AHO А 

SEC HL,EC 
JR N2,077C 
LD A,E8 

RST 10 

LO HL,C4016) 
LO A,CHL) 
INC HL 

CALL 0784 
LD (4014),Н! 
JR 1,0760 
CP 7F 

JR 7,0790 
СР 76 

Ж 1,07ЕЕ 
ВІТ 6,4 

JR 2,0794 
CALL 0948 
Jk 0760 

RST 10 

JR 076b 

Lt А, (4006) 
LD В, ав 

AND А 

JR NZ,O7AA 
LÛ А, (4001) 
го в, во 

RRA 

RRA 

ANG 01 

ADD A,B 
CALL O7FS 
JR 0760 

СР 7E 

RET NZ 

INC ІН 

INC HL 

INC Hl. 

INC HL 

INC HL 

КЕТ 

LO D,00 

SRA В 

SEC A,A 

OR 26 
(01,05 

SUB |. 

ADU ASL 

SCF 

кк C 

JK C,07C7 
Inc с 

КЕТ H7 

LO C,E 

DEC | 

LO L,01 

Ж N2,0/C7 


ог 
0708 
0709 
OTA 
070E 
070C 
0700 
07UE 
07hF 
O7F1 
O7E2 
07E3 
07Е4 
07Е6 
07t8 
07E9 
07FE 
07Е6 
O7EE 
07ЕҒ 
07Ғ1 

07Ғ5 
976 
0777 
07ГЕ 
ШП 
0300 
OHO? 
0805 
0806 
0807 

овов 
0809 
0800 
ОВОЕ 

0810 
0812 
0814 

0815 
0817 

0814 
0816 
081C 
081E 

ОВТЕ 

0821 

0822 
0825 
0827 
0828 
овес 

0020 
0850 
0872 
0823 
0825 
0857 
ORZA 

0830 
083E 
005Р 
0840 
0845 

0846 
0047 
0849 

ОВАЙ 
004E 

0851 
0853 
0855 
0056 


110 


3p 


09 


ги 


ок: 


ғо 


/u 00 


10 


: 01 


01 


40 


00 
09 


40 
39 


01 
09 


40 


86 


4Е 


40 


40 


Сё 


го 16,0070 
LO E,^ 

ADU HL, GE 
SCF 

RET 

LD A,E 

AND A 

RET M 

JK 07F1 

хок A 

AGU HL EC 
INC A 

Ж C.07E2 
SEC HL,EC 
GEC A 

JR Z,070C 
10 E,1C 

ADD А,Е 

АНП A 

JR 7,07Ғ5 
RES 0,CIY*01) 
EXX 

FUSH Hl 

БІТ 3,CIY401) 
JK HZ.0802 
CALI. 0808 
JR 0805 
CALL 0051 
FOP HL 

EXX 

RET 

10 0,А 

LO ВС, (4039) 
LO А,С 

СР 24 

JR 7,082C 
LO 4,76 

CF D 

JK 2,0847 
LD HL,C400E) 
CP (HL) 

LD 4,0 

JR N2,083t 
GEC С 

JR NZ,0834 
INC HL 

LD (400E ),HL 
Lo C,21 

ПЕС E 

LD (4039) „ВС 
LO A,B 

СР CIY«22 

ІК 7,0835 
ANG А 

JR NZ,0812 
10 L,04 

JF 0058 
CALL 0998 
EX ODE Hl 

LO (CHL J.A 
INC HL 

LO (400E ),HL 
ПЕС (I¥+39) 
RET 

10 с.21 

GEC E 

SET 0,CIY101) 
JP 0918 

CP 76 

JR 7,0871 
LD С.А 

10 4.40358) 


CAS? 
ORSR 
08501 
ONE 
0840 
0065 
0854 
0845 
OFAR 
0049 
0П4Е 
ONGE 
O84r 
on?! 

6973 
0076 
0879 
опта 
ОВ7Е 
007C 

087П 
087Ғ 

0000 
0805 

9005 

0086 

0088 

0899 
ORRA 
OBAC 

ORANG 
0890 
0892 
0893 
0894 

0895 
0897 

0898 
0899 
ОПЗА 
опер 
onoc 

08еп 
ONDE 

OBSF 

ОНА) 

ORAZ 
ORAS 
ORAA 
0847 
ORAR 
ORAA 
опас 
ORAL 
ОПАЕ 
ШИ] 
OOF} 

овг? 
enrs 
ORES 
ORES 
ONER 
ORE? 
ONFA 
ОЛЕГ 
овен 
ОПР 

onto 
6802 
0804 
ORCS 
OALT 


E4 7F 


ce 11 


06 ОВ 


ов 


38 


40 


OF 


08 


AMD 7F 
СР 56 
LOLA 
LD H.40 
CALL 7,0871 
LO CHL) C 
INC L 
LO (199382, 
RET 

‘LD 0,26 
LO HL (4000) 
INC HL 
JR 0876 
(0 0,01 
LD HL. 403C 
CALL 0?F7 
губи EC 
PUSH HL 
хок A 
LD Е,А 
QUT (FR),A 
POP HL 
CALL 0543 
JR с,обва 
RRA 
OUT (FR),A 
RST 8 
INC с 
IN A,CFR) 
ADD A,A 
JP M,OBDE 
JR нс,овво 
PUSH HL 
FUSH DE 
LO A,D 
СР 02 
SEC A,A 
AND Е 
RLCA 
ANO E 
LO 0,А 
10 COLD 
10 A,C 
INC HL 
CF 76 
JR 7.0807 
FUSH Mt 
SLA ^ 
ADD A,A 
ADD А, А 
LO н, ог 
RL H 
ADD A,E 
LD LA 
RLC 
SEC А.А 
XOR (HL) 
LO C,A 
10 2,08 
LD A, 0 
RLC C 
RRA 
LU HA 
IN А. CEP) 
RRA 
JR HC.0BPA 
10 A,H 
QUT (FE),A 
UJHZ 0825 
РОР HL 
JR овес 
ІН А. (ГВ) 


ORL? 
OFA 
опгг. 
орсо 
OPCE 
ого 
onn] 
onu? 
OREA 
ORDA 
onnz 
onng 
OBNA 
onpc 
o0nF 
ОВЕТ 

ОВЕФ 
OBES 
оВЕ? 
OBL? 
OBEA 
OBEC 
OBFE 
ОВЕГ 
ОПЕ] 

onr4 
08Е5 
ORF7 
ORTA 
onrF^ 
onro 
0700 
0901 

0902 
0904 
0705 
0908 
070A 
090E 
090Е 

0911 

0913 
0914 
0917 
0918 
091€ 
091Ғ 
0920 
0922 
0925 
0924 
0926 
0927 
9928 
0929 
0928 
0570 
092Е 
0950 
0921 
0924 
0955 
0274 
0977 
0020 
0739 
095г 
092П 
09: 
095Ғ 
0940 
0942 


111 


FP 


76 


FC 
FA 


E! 


ог 


9t 


00 


02 


40 


40 


22 
08 


ОЕ 


01 


40 


39 
40 


40 


09 


4Е 


40 


REA 

JR HC.08C7 
ІП AD 
RRCA 

OUT (FED,A 
FOF DF 

IHC Е 

PIT Sor 

ІК 7,0070 
FOF EC 
ЕСО 

JR Н2,087А 
LO А, 04 
OUT (РЕВ), А 
CALL 0207 
FOF FC 

LO HL,405C 
LO (НО), 76 
LO в, 20 
СЕС HL 

LO (НІ 2,00 
0JN7 ОВЕ9 
LO л, 

SET 7.^ 

10 (4038),A 
RET 

ОА, 17 
SUF В 

JR С,0905 
CF (IY*22) 
JF 6,0835 
INC А 

10 B.A 

{б ASIF 
SUB c 

JF С,ОЕАП 
AGU А,02 
LOCA 

BIT J,CIY401) 
JR 2,0918 
LU А, 50 
SUB C 

LO (4038 ),^ 
RET 

LO (4039) „ВС 
tt HL,( 4010) 
LO п.с 

LO 4,22 
SUE с 

LO C.A 

LO A,76 
IHC в 

DEC Ht 

CP CHL) 

JR Н7,0927 
DJHZ 0927 
INC HL 
CFIR 

DEC HL 

ІП (400Е).Н1 
SCF 

RET РП 

OFC p 

RET 7 

PUSH EC 
CALL O99F 
FOF FC 

Up (uc 

LD HC 
LOL,E 

LO (HL ),00 
DEC HL 


0942 
0945 
0546 
0947 
0944 
094 
024C 
094F 
0951 
0955 
0957 
258 
0959 
0954 
0954. 
0730 
09% 
DF 
0960 
0947 
0565 
094% 
0566 
09/8 
0°28 
0957 
ой 
09^t 
0972 
0975 
0976 
0979 
O97R 
0970 
097F 
0901 
0985 
0914 
0785 
0917 
0988 
070^ 
098г 
oenr 
0990 
0992 
993 
0954 
059% 
0906 
0997 
0298 
NOGA 
ogon 
OSF 
099F 
0942 
0942 
09^6 
09^9 
AFAA 
ос 
озай 
090 
ОА 
097? 
0964 
07۴% 
09F^ 
09Е7 
OFER 
09F:9 


08 


FE 


OE 


c 
о 


08 
Ce 
92 


ЗЕ 


“п 


ос 


40 


09 


01 46 


01 C6 
07 


01 


00 


ОЕ 


09 


> 40 


40 


ПН? 0940 
ЕХ ПЕН 
IHC HL 

LO (400E 3, НЕ 
БЕТ 

FUSH AF 
CALL 0975 
JR NC,0959 
EIT O,CIY401) 
JR N2,0959 
XOR A 

RST 10 

(ИА, (ЕС) 
AHD 3F 

RST 10 

LD А. (ЕС) 
IHC RC 

AUD ALA 

JR NC.0959 
FOr ЕС 

RIT 7,8 
RET 7 

CF 1А 

JR Z,094n 
CF 38 

RET С 

XOR A 

SET 0,CIY*01) 
JF 075 
PUSH HL 

LO HL,0111 
BIT 7,A 

JR 2,097 
AND 3F 

CP 43 

JR NC,0993 
Ln EA 

INC B 

BIT 7, СНС) 
IMC не 

JR 7,0905 
DJN7 0985 
BIT 6,8 

JR NZ,0992 
CF 18 

CCF 

10 Р.Н 

th CL 

FOF Ht 

RET НС 

LN ACEC) 
АП A.F4 
RET 

10 PC.0001 
FUSH IM 
CALL OECS 
FOF Ht 

CALL OFAD 
LO HL,C401C) 
ЕХ NE НЕ 

1 DUK 

RET 

FUSH AF 
FUSH HL 

ICO HE „400: 
ІП А, 09 
10 Е, (НЕ) 
INC HL 

10 Fr CHE) 
EX (БР), НЕ 
ами A 

SEC М „ПЕ 


OET: 
09ЕС 
09-0 
ORF 
090 
oor! 
9902 
0972 
0954 
09С5 
09ГА 
0907 
OCR 
oor? 
СОСА 
OSCE, 
09cn 
09ГЕ 
OEF 
0900 
0902 
0705 
09/4 
0905 
09116 
0917 
0918 
0909 
DC 
09010 
osnr. 
ОЕ 
092 
09Ғ3 
09Е4 
09Е7? 
09Ғ8 
OFFA 
OSEE 
OPEC 
estu 
ОЕЕ 
OPEF 
ого 
09F1 
O9F2 
09Ғ3 
09Ғ4 
O9F 6 
09r8 
09F^ 
O9FC 
oro 
0400 
0401 
0404 
OANA 
0A08 
0409 
06504 
ОЛОР 
олор 
OAOF 
0410 
0411 
0^1? 
0415 
OANA 
041% 
0416 
0417 


ЕВ 


70 


ҒА 


F? 


F4 


40 
17 
oF 
14 


01 
05 


02 
11 


FR 
04 


0418- ED 52 


112 


40 


09 


09 


ой 


00 


ADO НЕ, OE 
EX (SF) ML 
JR HC.09CB8 
PUSH DE 
EX NEM 
ADO HL RC 
FX гг. 
со CHE), D 
DFC HL 

ІП (HL),E 
IHC Ht 
РОР NF 
INC Int 
ПЕС A 

JR HZ.09P4 
EX GEHL 
FOF DE 
РОР AF 
АНО А 

SEC HL UE 
LO Е,Н 

LO C,L 
INC EC 
ADE HE LUE 
EX ПЕНИ 
КЕТ 

FUSH HI 
10 НІ ,4070 
10 UH 

UB Е. 
FOF РС 
CALL ОРЕЛ 
KET НС 
FUSH РС 
CALL 09F? 
FX ПЕН 
ІК OSIF 
Lo А, СНС» 
СР Е 

RET H7 
INC ML 

LO AHI) 
DEC НЕ 
ЕРЕ 

ЕРТ 

PUSH HL 
LO А, СНС) 
СР 40 

JR С, ОАОР 
PIT 5.й 
JR 7,0410 
ADD А.А 
JP M.0^01 
CCF 

Lf РС.0005 
JR NC, OAOR 
to c,i 
RLA 

INC Ht 

LO А.С) 
IR NC. OAON 
Jk 0^15 
THe Ht 

THE Hl 
Rum 
INC Ht 

10 ELCHE) 
THC HL 
ALE HL SBC 
POF DE 
AND A 

SPC HL; DE 


0490 
ОЛ9Р 
олло 
ОАА] 
0445 
OAAS 
0448 
ОАА? 
OMAN 
0449 
олал 
OMAE 
CAAT 
OARO 
ONES 
OARS 
OARS 
OALB 
ОАЕЕ 
OA^EF 
ом:2 
OATS 
0АСА 
OACS 
OACB 
OAC? 
OATA 
OACP 
OACE 
олно 
Oana 
OANS 
OAN7 
OAL? 
OADE 
олпо 
ОАЕ 
ОЛЕО 
OAE3 
OARS 
ONEA 
ОАЕ 
OAL 
OAEF 
оағо 
OAF3 
OAr4 
OAFS 
ОЛЕВ 
OAT A 
OAFC 
OAFE 
OAFF 
0802 
0Е05 
0ғ00 
оғор 
ороп 
OROE 
о0ғ12 
0214 
0217 
0:19 
OFRIR 
ОРГ 
0ғ21 
0275 
0626 
ОЕ?В 
ОЕ?Р 
Ob2F 


20 20 


ETE 
18 08 


со Ad 


> 01 CE 


ов 


: 01 4Е 


JR NZ,OAEF 
LD H,P 

10 L.C 

LD E,FF 

JR олло 
FUSH DE 

LO D.CHL) 
INC HL 

Lt EHL) 
FUSH HL 

EX рғ. 
10 E.00 

LD FC,FCIB 
CALL 07E1 
LD &c.rr?c 
CALL 07Е1 
LQ C,Fó 
CALL O7EL 
LO ASL 
CALL 07ЕВ 
POF HL 

POF UE 

RET 

CALL 0046 
РОР HL 

RET Z 

JP сн) 
SET 1,(IY+01) 
LD A,(HL) 
СР 76 

JP 7,0884 
SUB 1^ 

AUC 4,00 
JR 2,0244 
CP A7 

JR NZ,0AFA 
RST 20 
CALL 0092 
CF tA 

JP NZ.009^ 
RST 20 
CALL 0092 
CALL OP4E 
RST 28 

LD вс. с034 
FUSH AF 
DEC PC 
CALL ОПР5 
JR 0837 

СР АВ 

JR HZ, 0631 
RST 20 
CALL 0092 
CALL OB4E 
CALL 0602 
JP NZ,OEAN 
AND IF 

LO CA 

RIT 1,CIY*01) 
JR 7,0Ё!Е 
SUP (138) 
SET 7,4 
ann 4,56 
CALL нс.0871 
AUN ALCIYH39) 
СР 21 

LD 8,4054) 
SBC А,01 
CALL ORFA 
SET 0,CIY*01) 
JR 0837 
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^n 


ЕВ 


07 
40 


40 
0^ 


09 


RE 


FE 


6t 


10 Е.Н 

LN C,L 

ADO HL, UE 
EX DE,HL 

RET 

LO E,CIY422) 
FUSH EC 

CALL OA2C 
FOF EC 

ПЕС P 

JR OA2C 

LO E,18 

RES 1,CIY*00) 
tt C91 

FUSH EC 
CALL 0918 
РОР ЕС 

LU A,( 4005) 
CP 4D 

JR C,0452 
SFT 7, СТУ+ЗА) 
XOR A 

CALL O7FS 
LO HL,( 4039) 
LD ASL 

OR H 

AND 7E 

JR NZ, OA42 
JF 0918 

Un D,H 

LO Е, 

DEC HL 

LU C,E 

LO P,00 
LOIR 

LO HL ,( 4010) 
CALL 0517 
PUSH EC 

10 A,E 

CFL 

LO в,А 

to a,c 

СР! 

tn CA 

INC FC 

CALL 0940 
ЕХ OF HL 
FOF Ht. 

AUD HL DE 
PUSH DE 
ІШІНЕ 

FOF HL 

RFT 

LP HL,( 4014) 
CALI 0040 
RST 18 

BIT 5.CIY*?D) 
RFT HZ 

|n HU. 4050 
LO (401C).HL 
CAL 1544 
CALL 1586 
JR C.0A91 
Ur НЕ. .08ЕО 
AUN HL.EC 
JP с, 009й 
cr A 

JF 1488 
FUSH QE 
FUSH HL 

хок а 


OFSA 
0Е57 
6870 
ОРЗА 
CEC, 
OESE 
04! 
0Е14 
0647 
0849 
DEAA 
OP4R 
OFAE 
OFS! 
дЕ52 
ОР52 
OFSS 
0г58 
ОРОС 
OFSF 
0851 
ORAS 
0646 
067 
ORE 
AESC 
or^tt 
ОГАЕ 

DEAF 

0270 
9271 

0075 
O77 
01:79 
OC7E 
070 
ORTE 
02:01 

OFA? 
0:94 
ОЕП? 
0Е:39 
orna 
огпе 
ОСЕ 

092 
0Е93 
0294 
0Е98 
0-99 
окоп 
OEF 
OFAI 

ORAS 
оға, 
OEA? 
0-49 
ОрАР 
OAE 
DEAF 

OFF? 
OEFA 
ORF) 
OFE? 
OPAC 

окп 
ог 

erc? 

0ЕС3 
OCC 
ОЕГ7 
ORC? 


[BU 
OF 
n^ 
CE 
en 
со 
C3 
n4 
E7 
FE 
гв 
C3 
cn 
со 
Е! 
18 
ср 


3 18 


09 


0^ 


76 


40 


C5 


40 


CALL 0855 
RST 18 

SUR 1А 

ANC 4,00 

JR 7,0244 
CALL 0010 
JF 0604 
CALL NC,ORBP 
RST 20 

CP 75 

RET 7 

Jt 0405 

CALL ODAS 
RET NZ 

FOP HL 

JR ОР37 
CALL OACS 
BIT 6,(1Ү%01) 
CALL Z,13F4 
JR 7,0268 

JP 1507 

LD ^,0B 

RST 10 

LD DE,( 4018) 
LO А.Е 

OR C 

DEC BC 

RET Z 

LO A,( DE) 
INC DE 

10 (4018 ),0E 
RIT 6,4 

JR 7,0266 
СР ro 

JR 7,0264 
FUSH EC 

CALL 094Р 
РОР PC 

JR 0P57 

CALL OACS 
104,76 

RST 10 

RET 

CALL OACS 
SET 0,(17401) 
XOR A 

RST 10 

LD BC,( 4039) 
LD A,C 

BIT 1,(1¥+01) 
JR 2.0644 
10 4,50 

SUB (IY*38) 
во Ctt 

CPE 

JR NC, OCAR 
Vr С.01 

CALL 0908 
КЕТ 

CALL ОБҒ5 
10 (4056), [С 
LO А, 26 

SUR R 

JP C.oran 
Urt PLA 

LO 4.01 

SRA E 

JR NC,0RCS5 
LO 5,04 

SRA с 

JR нс овса 
ксл 


DECA 
OFCE 
ОЕСЕ 
ОЕСЕ 
орго 
orn2 
90204 
0205 
0Е07 
0Е09 
OFNA 
(4261) 
ОЕГО 
OLEI 
ОСЕ4 
ORCS 
OBES 
ОЕГ7? 
ОРГ? 
OEFA 
orte 
ОЕЕО 
orrr 
ОЕР 
OEF2 
ОГЕЗ 
OFF 4 
ORFS 
oErg 
opere 
OEFA 
ОРЕП 
ОЕРЕ 
ORFF 
осоо 
осо! 
0602 
0605 
осов 
OCOA 
ОСОР. 
осоп 
OCOE 
0011 
0013 
0616 
019 
ОСТА 
OCIR 
OCIE 
6621 
0622 
0623 
022% 
0026 
0629 
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ЗЕ 
30 


02 


08 


oc 
40 


OF 


oc 


15 
OE 


FUSH AF 
CALL 0875 
LD а, СНС) 
RLCA 

СР 10 

JR NC,OEDA 
RRCA 

JR NC, OED? 
ХПК BF 

LO в, 

LU DE, 0С9Е 
LO A,( 4030) 
SUE E 

JF M,OEES 
FOP АЕ 

CFL 

ANO в 

JR OGEB 
FOF AF 

OR в 

CP OB 

JR C,ORFL 
XOR BF 

EXX 

RST 10 

EXX 

RET 

CALL осог 
LO B,A 
FUSH BC 
CALL 0602 
10 E,C 
РОР ЕС 

10 0,С 

LD с,й 

КЕТ 

CALL 1569 


LO Е, (1402) 
LD с, 21 

CALL 0918 
CALL 099P 

10 A,(HL) 

LD (DE),A 
INC CIY43A) 
LO HL ,( 400C) 
IHC HL 

LO D,H 

10 E,L 

CPIR 

JP 0850 


57 52 5 OF 40 


1(a) 10 


1(b) 10 


SOLUTIONS TO EXERCISES 


Chapter 1 


FOR X = 63 ТО Ø STEP —1 ... use 59 for 1K ZX81's 
FOR Y = 43TO @ STEP -1 

PLOT XY 

NEXT Y 

NEXT X 


FOR X= 10 TO 30 
FOR Y =5 TO 25 
PLOT X,Y 
NEXT Y 

NEXT X 


1(c) For 16K Machines:— 


19 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
500 
510 
520 


FOR X=@TO 63 
PLOT Х,0 

GO SUB 500 
UNPLOT Х,0 
NEXT X 

FOR Ү = @ ТО 43 
PLOT 63,Y 

GO SUB 500 
UNPLOT 63,Y 
NEXT Y 

FOR X=63 TO @ STEP —1 
PLOT X,43 

GO SUB 500 
UNPLOT X,43 
NEXT X 

FOR Y=43 TO @ STEP -1 
PLOT 0 Y 

GO SUB 500 
UNPLOT 0, Y 
NEXT Y 

STOP 

PAUSE 10 

POKE 16437,255 
RETURN 
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1(d) 


1(e) 


For 1K ZX81's the boundaries of the display will need to be 
reduced. 


Alternatively try this. (Substitute Y=15 for Y=@ for 1K): 


10 
20 
30 
40 
50 
60 
70 


80 
90 


10 
20 
30 
40 
50 
60 
70 
80 


LET X=0 

LET Y=0 

PLOT X,Y 

PAUSE 10 ) ог 40 FOR A-1 TO 20 

POKE 16437,255) 50 NEXT A 

UNPLOT X,Y 

LET X=X+(Y=@)—(Y=43)—(X=63 AND Y=@) + (X-0 AND 
Y-43) 

LET Y=Y—(X=@)+(X=63)—(Y=43 AND X=63) + (Ү-0 AND 
х-0) 

со то 30 


FOR A=@ TO 90 STEP 5 

LET M-TAN(A*2*PI/369) 
FOR Х-0 TO 63 (use 40 for 1K) 
LET Y=INT (M*X) 

IF Y>43 THEN GO TO 80 
PLOT AY 

NEXT X 

NEXT A 


A line through the point (32,22) with gradient m can be calcul- 
ated since the slope y—22 = m 


SO y 


х-32 


= m(x—32)+22 


Use values of m from —5 to 5 in steps of one half 


10 
20 
30 
40 
50 
60 
70 





FOR M=—5 TO 5 STEP @.5 

FOR Х- TO 63 2: 

LET Y=INT(M*(X—32)+22) 

IF Y» 43 OR Y<@ THEN GO TO 60 
PLOT X,Y 
NEXT X 
NEXT M 


М 
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18 _ Equation is x2 + y? = 402 


sox = 40 cos 0 
and y = 40siné 
and we PLOT it for the angle 0 between 0° and 90°. 


10 FOR O = OTO 90 

20 LET P-O*PI/180 

30 PLOT 40*COS P,40*SIN P 
40 NEXT O 


Chapter 2 
2(a) Add the following instruction 
55 IF А%(1)-“-” OR AS(I)-"b" THEN GO TO 70 


2(b) 10 DIM 5%(40) 
20 PRINT "ENTERbSENTENCE:" 
30 INPUT S$ 
49 PRINT S$ 
50 FOR 1=1 ТО 37 
60 IF S$(I TO I-2)-"THE" THEN GO TO 100 
70 NEXT | 
80 PRINT "DOESbNOTbCONTAINDTHE." 
90 STOP 
100 PRINT "DOESbCONTAINbTHE" 


Notice this accepts any word containing, T,H,E, e.g. PATHETIC 
Chapter 3 


3(a) No solution specified: the subject area is open to the reader's 
choice. 


3(b) 71 LET У-0 
72 FOR J=1TO8 
73 IF CODE (WS(1,J))» 128 THEN LET V=V+1 
74 NEXT J 
75 |Е V<>1 THEN СО ТО 70 


V counts the number of inverse characters in the word. 
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3(c) 


3(i) 


ABS is included so that the relative values of N and R are com- 
pared effectively, i.e. it is unimportant which is the larger. 
Without ABS we have for example: 

190 IF N-R»5 THEN GO ТО 220 


ІТ В was 50 апа М was 44 the test would not be satisfied d 
since —6 is not greater than 5. 


Try it and see! 
30 LET A$(IJ=CHRS(INT(RND*11)+28) 


There is not a way of crashing the program at the input stage 
that we have found! 


Add the following line 
105 IF ММ AND D>SOR M THEN GO TO 120 


Line 260 terminates with an error if DF is zero. 
Add the following: 


253 IF DF<>@ THEN GO TO 260 
255 PRINT "NObSOLUTIONDPOSSIBLE" 
257 STOP 


Line 360 detects a response which is shorter than 
the answer keyword, and which is therefore obviously 
wrong. 
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APPENDIX 
PROGRAM DESIGN AND DEVELOPMENT 


Introduction 


This section has been written to show the reader how a games program 
has been built up from first ideas into a fully working and documented 
program. 


The writing of programs can generally be split into a number of steps: 


Defining the problem 

Outlining the solution 

Selecting and representing algorithms 
Coding (or writing the program) 
Debugging 

Testing and validating 
Documentation 

Maintaining the program 


mom wm 


It is vital that a considerable amount of planning and design for a 
program takes place before the user touches the keyboard. In particular 
the aim and format of the program must be clearly specified, since 
ambiguities at this stage will cause problems later. When defining the 
method of solution (or algorithm) is it helpful to write this down as a 
series of separate steps in a block-structured form, as shown in earlier 
chapters. Some programmers like to use flowcharts (example later) but 
the author thinks these are not vital if the algorithm is written down in 
a structured way. All later stages of the implementation of the program 
are based upon this stage and it can be helpful to specify the names 
and meanings of variables here. Certainly a list of variables must be 
kept as the program is written to avoid confusion or duplication of 
names. Even when tracking down errors or program bugs, the 
structured method can be traced through to show any logic errors. 
Although it can be frustrating for the user with a good idea for a 
program to wait for an hour or so following this method before getting 
on the ZX81, he will find it saves a great deal of time later: there will be 
much fewer errors and those present will be easier to finc. 


This approach, while certainly the best, does present problems for those 
beginning to program, since such users will not have all their ideas at the 
beginning of the design process. The remainder of this section 
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represents an alternative of gradually improving upon an initial simple 
program. 


Sample Specification 


Step One, defining the problem means “What is the Program to do"' or 
"What is its specification". Here is the specification of the program which 
will be covered in this section: 


“Тһе program is to draw a large block on the screen which represents a 
thick dungeon wall. A prisoner under the user's control has to dig him- 
self out from one end to the other. However parts of the wall are of 
made of hard rock, which he must dig round. If he takes too long a 
Warder will come looking for him and if he is found he will be taken 
back and the tunnels he has dug filled in. The object is for the prisoner 
to escape.” 


Those people without 16K expansions will realise that (without using 
machine code) it will not be possible for their ZX81's to handle such a 
program. Even so the first part of this section is just as applicable to 1K 
as to 16K, so continue reading. | 


The specification has given us three main problems: 


1. We have to be able to move a character representing the 
prisoner round the screen. 


2. Parts of the screen have to be designated ""No-Go"' areas 
which the prisoner must go round, and 


3. We have to make a second character follow the paths made 
by the “Prisoner” while looking for him. 


PROBLEM ONE — MOVING A CHARACTER ROUND THE SCREEN 


As described earlier in the book there are two ways of printing a 
character оп the screen, "PRINT AT" and “PLOT”. We will use "PRINT 
АТ” because any character can be displayed by this statement. Since it 
is not necessary to input the co-ordinates for every move and since we 

do not want the program to stop while waiting for an input we will use 
the 'INKEYS" statement. The following program shows briefly how 

this can be done. 
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5 REM PROGRAM 1 
10 LET Хе5 
20 БЕТ Y=1 
30 IF INKEY$="8" THEN LET У-У+1 
40 PRINT AT X,Y;"P" 
50 GO TO 30 


Y is the horizontal position which is incremented everytime the “Right 
Arrow” or 8” key is pressed thus drawing a line towards the right. 

Note that the line continues for as long as the "Right Arrow” key is 
pressed. If we can move іп one direction like this then we can move in 

any direction by incorporating the other arrow keys in the program. One 
fault with the above program is that once the line reaches a certain length 
it crashes with an error message В/40 which means that the value of “Y” 
in line 40 is too large. The computer has tried to draw off the screen,to 
prevent this happening insert the following line: 


35 IF Y>30 THEN LET Ү=Ү—1 
The line will now no longer be drawn past column 30. 


When the above technique is used to draw a line in all directions it 
becomes a very versatile method of drawing on the screen. The following 
“Sketcher” program demonstrates this. It makes the ZX81 imitate a 
childs Etch-A-Sketch machine. Movement and character changing are 
shown below: 


5-8 Left, Down, Up, Right 

D Change character to a dot 

B Change character to a blank 

9 Scroll whole picture 

А Change character back to black square 
C Press to insert your own character 


5 REM SKETCHER PROGRAM 

10 LET Х-10 

20 LET Ү-12 

30 LET P$-CHR$(128) y Л, 

40 LET X-X-(INKEYS$-"7'")2(INKEYS-"'6") 

50 LET Y-Y-(INKEYS-"5'")-(INKEY$-"8") 

60 IF INKEYS$-"C" THEN GO SUB 300 2 
70 IF INKEYS$-"A" THEN LET Ре-СНН6(128) \А: 
80 IF INKEYS-"D" THEN LET P$-"." 
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90 IF INKEY$="B" THEN LET P$-"b" 
100 IF INKEYS$-"S" THEN SCROLL 
110 IF Y>31 THEN LET X=X+1 
120 IF Y>31 THEN LET Ү=@ 

130 IF Y=@ THEN LET Y=Y+1 

140 IF Х=0 THEN LET X=X+1 

150 IF Х> 20 THEN LET Х-0 

160 IF Х=0 THEN LET Y=Y+1 

170 PRINT AT X,Y;P$ 

180 GO ТО 40 

300 PRINT АТ 1,1;“CHARACTER=" 
310 INPUT P$ 

320 PRINT АТ 1,1;"bbbbbbbbbb" 
330 RETURN 


Lines 10 to 30 Sets up coordinates and character to be printed. 

Lines 40 and 50 Change the character co-ordinates, compare with Line 
30 in Program 1. 

Lines 60 to 90 Allow character to be changed. 

Lines 110 то 160 Stop the character from going off the screen. 

Lines 300 to 330 Allow the user to change the character to any other 
character or string. 


We have not totally achieved our objective as the Sketcher Program and 
Program 1 are drawing lines round the screen rather than moving a 
character. To create the illusion of movement we must erase the 
character everytime it moves. To do this we must store the old co- 
ordinates and print a blank on them. Insert the following lines into 
Program 1:— 


25 LETS-X 

27 LET T=Y 

45 PRINT AT S T;"b" 
50 GO TO 25 


Note how the character flashes — this is because it is constantly rubbing 
itself out. Try and work out how to stop the flashing (answer at the 
end of this section) and try to incorporate this technique into the 
Sketcher Program. 


The two programs above both fit into a 1K ZX81 although memory full 
errors may occur with the Sketcher Program as the screen begins to fill 
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up. For the second problem below (defining parts of the screen as 
No-Go areas) a 16K expansion must be used. 


PROBLEM TWO: DEFINING “МО-СО” AREAS ON SCREEN 


By the expression “Мо-бо Areas'' is meant a part of the screen which a 
program such as Sketcher cannot draw on and must go round to pass. 
This means that the ZX81 must know what is being displayed on the 
screen. The easiest way of doing this is to store the screen contents in 
ап array. This is why a 16K expansion is needed. The array will be 
dimensioned as 21x31 (the number of "PRINT AT” positions) so that 
every time a character is printed on the screen a corresponding digit 
should be placed at the correct position in the array. For example if a 
“3” is printed on the screen at 5,7 then а “3” is stored in the array at 
x 


PRINT AT X,Y;"3" 
LET A(X,Y)=3 


To create No-Go areas on the screen therefore all we have to do is place 
values in the array. If we try to draw a character in a No-Go screen 
position then we have to move the character back to its old position. 


This BLOCK program gives a demonstration of the No-Go Areas, as well 
as a moving (self-erasing) character. Move the character by using the 
“Arrow” keys. 


5 REM BLOCK PROGRAM 
10 DIM A(21,31) 
20 FOR S-1 TO 21 
30 FOR T=1 ТО 31 
40 LET X=INT(RND*1@+1) 
45 IF X28 THEN PRINTATS,T;'MI" 
50 IF X>8 THEN LET A(S,T)=7 
60 NEXT T 
70 NEXT S 
100 LET X-10 
110 LET Y=1 
120 LET S=X 
130 LET T=Y 
140 LET X-X-(INKEY$-"7")-(INKEYS$-'6 ") 
150 LET Y-Y—(INKEYS$-''5")-(INKEYS-"'8 ") 
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160 IF A(X,Y)=7 THEN GO SUB 200 
170 PRINTAT X,Y;"O" 

180 PRINT AT S,T;"b" 

190 GO TO 120 

200 LET X=S 

219 LET Y9T 

220 RETURN 


This program produces a screen full of random black squares. Once the 
flashing “О” has appeared, move about by using the arrow keys. Мо 
matter how hard you try you will be unable to move the “О” through а 
black square. This is how the program works. 


Line 10 Sets up the two dimensional array. 


Lines 20 to 70 Fills randomly chosen parts of the array with 7 and 
prints out the corresponding position on the screen. 


Lines 100 to 110 Set up the starting position of the flashing “O”. 
Lines 120 io 130 Store the previous position of the flashing “О”. 
Lines 140 to 150 Input the new position for the “O” to go to. 


Line 160 Finds out whether the new position of the “O” isa 
No-Go Area by looking at the corresponding position 
in the array. 


Lines 170 to 190 Print the “O” and erase the old “O”. 


Lines 200 to 220 Return the flashing “O” to its old position if it is 
trying to pass a No-Go Area. 


An interesting alteration to liven this program up can be made as 
follows: — 


200 LET X-S-2 
210 LET Y-T-2 


Now everytime the flashing “O” reaches a No-Go Area it will bounce 
away from it. As we now have the two main techniques which form the 
basis of the game program we can now begin work on it. The diagram 
on the next page shows a general algorithm for the game in the form of 
a flowchart. It is around this that we shall write the Game Program. 
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This flowchart is not an algorithm for the complete game because we 
want a “Warder” to be able to chase the "'Prisoner'"' through the 
"tunnels" and capture him. However this part of the program can be 
added later at the "Print Time Up’’ box. Box 1 carries out the same 
functions as lines 10 to 100 in the block program and can be broken 
down into the following sections. 


a) Set up array 

b) Set up initial variables (co-ordinates etc.) 
c) Fill array with random flags (No-go areas) 
d) Print out picture 

e) Setup time limit 


Up to this point we have reached Step 3, in the program — writing 
procedure, that is we have: — 


DEFINED THE PROBLEM, this was our specification. 


OUTLINED THE SOLUTION, the techniques needed to write the 
program, i.e. character movement and No-go Areas. 


SELECTED AND REPRESENTED ALGORITHMS, such as the flow- 
chart and the sketch and block programs. 


We have also carried out some coding, debugging and documentation in 
the process of outlining the solution. Coding of the actual game 
program can now be done as all of the boxes in the flowchart have been 
covered already. 


10 REM ESCAPE GAME 
20 REM INITIALISE 

30 FAST 

40 DIM A(20,22) 

50 LET X=10 

60 LET Y=2 

70 LET С-0 

80 LET AS-"O" 

90 REM FILL ARRAY 

100 FOR 1=1 TO 100 

110 LET V=INT(RND*26+1) 
120 LET D=INT(RND*26+1) 
130 LET A(V,D)=7 

140 NEXT | 

150 REM PRINT PICTURE 
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160 SLOW 
170 CLS 
180 FOR 1=1 TO 20 
190 PRINT “ЪЪ ЗЕЕ ЕЗЕТ ЕЕЕ ЗЕ 
да" 
200 NEXT I 
210 REM SETUP TIME LIMIT 
220 LET TIME = INT(RND*2@6+1) 
230 REM MOVING PRISONER 
240 LET С-С+1 
250 iF C» TIME THEN GO TO 500 
260 LET К-Х 
270 LET P=Y 
— 280 LET X=X—(INKEY$="7")+(INKEY$="6") 
290 LET Y=Y—(INKEY$="5")+(INKEY$="8”) 
295 IF Ү>20 THEN GO ТО 400 
300 IF A(X,Y)=7 THEN LET Х-К 
310 IF A(X,Y)=7 THEN LET Y=P 
320 PRINT AT K,P;?b" 
330 LET A(X,Y)=8 
340 PRINT AT X,Y;A$ 
350 GO TO 230 
400 PRINT АТ 1,20; YOUbHAVE" 
410 PRINT АТ 3,20;“Е5САРЕП” 
420 GO TO 700 
500 PRINT АТ 1,20;"YOUbARE" 
510 PRINT АТ 3,20 ;"CAUGHT" 
700 STOP 





When this program is run the screen will clear for about five seconds 
while the initialisation and array-filling take place (lines 10 to 140). 

A large black square is then drawn on the left of the T.V. screen with a 
flashing “О” at the left edge. The flashing “O” represents the prisoner 
and the black square shows the ground through which he must dig to 
make his escape. Escape is achieved when he reaches the right hand 
side. You may have noticed that this program uses a slightly different 
method of filling the array than does the block program. In this program 
the density of No-Go areas can be chosen (here 100) by the size of the 
FOR NEXT loop in line 100. The “Tunnel” effect is created by the 
printing of blanks in line 320 which also causes the “О” to flash. Try 
making changes to the program, for example to the density of No-Go 
areas, the time limit, or adding boundaries to the top, bottom and left 

of the screen so that the program does not crash with a 3/300 error if 
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you go off the edge. 


This game provides a good springboard for further expansions, however 
we said that it was our aim to incorporate a “Муагдег" to capture the 
prisoner. The war ler has to either follow the exact course taken by the 
prisoner or work his way through the tunnels by following the array. 

Let us look at the second method first. The array used by this program 
so far contains 3 numbers; 0,7,8, which correspond to the screen display 
as shown below. 


Сер С "cU O 





SCREEN DISPLAY 


8 = Passage taken by “Prisoner” 
7 - No go areas 
О = Areas which can be passed through 


As the ZX81 will use the array to locate the position of the "Prisoner" 
the array must show where he is! This can be done by adding the line. 


245 IF C> TIME THEN LET А(Х У) = 9 


Now as soon as the prisoners time is up his position is marked in the 
array by a “9” 


The ZX81 (or warder) can now search from a starting position along 

the trail of "85 in the array for the “9” (prisoners position). The 
computer not only has to search for the “9” but also “875 so that it can 
follow a route made by the prisoner. To do this the computer has to 
search for an “8” or "9" in the squares adjacent to its present position. 
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Assume the “Warder” is at square X — he will search in the following 
мау: 





5 
So to search from X to 1 Т+Т + 1 
1162 556 18Т7Т-Т- 1 
2103 6-5-2 
3 to 4 Т-Т-145-5-1 


So that when the ZX81 has found an adjacent “87 it moves onto it and 
starts the search procedure again. Because this order of searching has 
been chosen, the “Warder” will tend to move right and up, rather than 
down and left. The coding to do this will look like this 


500 REM CHASING WARDER 

510 ЕТО =7 

520 LET S-10 

598 LET T*1 

540 LET F-S 

559 LET G-T 

560 LET T=T+1 

570 IF A(S,T)<D THEN GO TO 1000 
580 LET S-S-1 

590 LET Т-Т-1 

600 IF A(S,T)» D THEN GO TO 1000 
610 LET S=S+Z 

620 IF A(S,T)» D THEN GO TO 1000 
630 LET 5=5—1 

640 LET T-T-1 

650 IF A(S,T)» D THEN GO TO 1000 
660 GO TO 560 

1000 PRINT AT S,T;"X" 
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1010 PRINT AT F,G;"b" 

1020 IF A(S,T)-9 THEN GO TO 1100 
1030 GO TO 540 

1100 PRINT AT 1,23;"GOT" 

1110 PRINT АТ 3,23;"YOU" 


Because the same order of search is used by the “Warder” (right, up, 
down, left) it will occasionally become trapped. To prevent this from 


happening the search order can be randomised, though the “Warder” 
should be more inclined to move forward than to move backwards. 


130 


indt Po in LLL‏ ن یی 


INDEX 


(Program names in Italics) 


A.xes 1 

BBC 42 

Binary 96 
Bomb-proofing 51 
Bouncing 15 

Breakers Club 42 
Characters 36 
Character Display 1C 1 


Character Generator Display 102 


Character table 102 
Circles 17 

Command Table 101 
Computer Studies 66 
Coordinates 2 
Copycat 82 

Data 35 

Data processing 35 
Data structures 41 
Data tables 98 

Duck Shoot 30 
Education Ch. 3 
Ellipse 19 

Entry points 98 
Equations 5 
Feasibility study 38 
Fields 41 

Files 41 

Garbage -free 53 

Gi GO 53 

Grab the Grunger 79 
Gradient 7 

Graphics Ch.1 
Hexadecimal 96 
Hex Display 100 
Implementation 40 
Information Processing Ch.2 
INKEYs 22 
Iteration 90 
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Key table 101 

Lines 3 

Maths Stepping Stones 70 
Modules 54 

Money Maze 27 
Monitor Ch.4 
Monitor Listing 103 
Moving objects 8 
Parabolas 19 

PAUSE 22 

Picking Pairs 84 
PLOT 3 

PRINT AT 19 

Primes 88 

Program categories 61 
Pythagoras 11 

Quiz 92 

Radians 11 

Realtime 22 

Record 41 

Rectangle 4 
Requirement 50 
Routines 98 

School subjects 67 
Shooting Gallery 25 
Solutions 115 
Spelling Big Words 74 
Spirals 14 

Spots Before the Eyes 77 
String handling 36 
Systems analysis 38 


| Tables 43 


Tangents 10 

Trees 44 
Trigonometry 10 
User-friendliness 52 
Validation 53 
Variable length 46 
Video Show 20 








The ZX81 Companion 


The ZX8! Companion by Bob Maunder follows the 
same format as the popular ZX80 Companion. The book 
assists ZX81 users in four application areas: graphics, 
information retrieval, education and games. The book  ! 
includes scores of fully documented listings of short routines | 
as well as complete programs. For the serious user, the 
book also includes a disassembied listing of the ZXS8I 
ROM Monitor. 

MUSE reviewed the book and said, "Bob Maunder's 
7. X80.Companion was rightly recognized to be one of the 
best books published on progressive use of Sinclair's first 
micro. This is likely to gain a similar reputation. In its 130 
pages. his attempt to show meaningful uses of the machine 
is brilliartly successful." 

а The book has four sections with the author exploring 
„їй turn interactive graphics (gaming), information retrieval, 
educational computing, and the ZX8i monitor. In each 
case the exploration is thoughtfully written, detailed, and 
illustrated with meaningful programs. The educational 
section is the same — Bob Maunder is a teacher — and here 
we find sensible ideas tips, warnings and programs too." 





